[唐胡璐]VBS技巧 - Find a File Recursively(递归查找文件)
'-----------------------------------------------------------------------
'Function: FindFileRecursively
'Finds the first instance of a file within the root folder or one of its subfolders
'
'Remarks:
' Uses recursion
'
'Arguments
' ByVal strRootFolder - As String (absolute folder)
' ByVal strFilename - As String
'
'Returns:
' String with full file pathname based on root folder and file name
'
'Owner:
'
'Date:
'
'-----------------------------------------------------------------------
Public Function FindFileRecursively(ByVal strRootFolder, ByVal strFilename)
Dim FSO
Dim strFullPathToSearch
Dim objSubFolders, subfolder
Set FSO = CreateObject("Scripting.FileSystemObject")
'Initialize function
FindFileRecursively = ""
'Check that filename is not empty
If strFileName = "" Then Exit Function
'Get full file pathname
strFullPathToSearch = strRootFolder & "\" & strFilename
'Check if root folder exists
If FSO.FolderExists(strRootFolder) Then
'Check if file exists under root folder
If FSO.FileExists(strFullPathToSearch) Then
FindFileRecursively = strFullPathToSearch
Else
'Get subfolders
Set objSubFolders = FSO.GetFolder(strRootFolder).SubFolders
For Each subfolder in objSubFolders
strFullPathToSearch = strRootFolder & "\" & subfolder.name
FindFileRecursively = FindFileRecursively(strFullPathToSearch, strFilename)
If FindFileRecursively <> "" Then
Exit For
End If
Next
End If
End If
End Function
转载于:https://www.cnblogs.com/yongfeiuall/archive/2013/01/10/4134204.html
[唐胡璐]VBS技巧 - Find a File Recursively(递归查找文件)相关推荐
- [唐胡璐]VBS技巧 - Adding Quotes(为字符串加双引号)
newSAtr = Chr( 34 ) & Environment( "ProductDir" ) & Chr( 34 ) 结果如下图所示: 转载于:https:/ ...
- [唐胡璐]Excel技巧 - 使用Excel 2007完成多人协同录入工作
下面我们来介绍下Excel 2007的共享功能. 一.设置共享 启动Excel 2007,打开需要设置共享的工作薄文档,切换到"审阅"菜单选项卡中,单击"更改" ...
- [唐胡璐]QTP框架 - 关键字驱动测试框架之七 - Settings管理
这里主要是存放一些框架相关的Global设置的相关项,如图所示: 转载于:https://www.cnblogs.com/yongfeiuall/archive/2013/03/18/4134155. ...
- [唐胡璐]Java操作Sql Server 2008数据库
下载Microsoft JDBC Driver for SQL Server 直接去官网下载即可: 下载解压文件,得到sqljdbc.jar和sqljdbc4.jar.如果你使用的是jre1.7版本, ...
- [唐胡璐]QTP框架 - 关键字驱动测试框架之三 - 对象库管理
对象库的管理: 用QTP添加对象,本框架目前只实现层级不超过三级的对象管理.如: Browser("XX").Page("XX").WebButton(&quo ...
- linux系统命令光标移动,Linux 命令行 光标移动技巧及利用grep和find查找文件内容...
从文件内容查找匹配指定字符串的行: $ grep "被查找的字符串" 文件名 例子:在当前目录里第一级文件夹中寻找包含指定字符串的.in文件 grep "thermcon ...
- 唐迟英语阅读技巧的xmind思维导图
唐迟英语阅读技巧的xmind思维导图 不务正业一次,把之前自己总结的唐迟英语阅读技巧的思维导图po出来,自己总结的不想存了,就分享到csdn上好了.
- 22_IO_第22天(File、递归)_讲义
今日内容介绍 1.File 2.递归 xmind:下载地址: 链接:https://pan.baidu.com/s/1Eaj9yP5i0x4PiJsZA4StQg 密码:845a 01IO技术概述 * ...
- Python常用小技巧(五)——批量读取json文件
Python常用小技巧(五)--批量读取json文件 前言:其实Python能够批量读取很多文件,这里,本人以json文件为例(json是标注图片时生成的文件,记录有标注的坐标和标签,友情推荐标注图片 ...
最新文章
- 用mysql创建学生成绩表_用SQL创建学生成绩数据库
- UA MATH567 高维统计II 随机向量11 kernel的构造 用内积替换反三角函数
- 【BZOJ3437】小P的牧场,斜率优化DP
- 腾讯为60亿美元债券定价 为1年来亚洲最大美元债发行交易
- python显示邮件发送成功失败_python stmp module 163邮箱发送邮件不成功
- 鸿蒙官网什么样,鸿蒙系统推广,结果会怎么样?
- 世界首席WP(文字处理)布局绘制砖家横空出世
- phpMyadmin学习入门
- (保姆级)Oracle的下载及安装详细教程
- 微信小程序:收款码三合一制作微信小程序源码下载多模板选择
- update与upgrade的区别
- unity动画之帧动画使用
- 解密excel.xls文件密码
- 飞秋在同一局域网内刷新不到好友
- 获取b站某个up的视频aid、cid
- Word 文档乱码-请选择使文档可读的编码 重启电脑-不是解决方法的解决方法(可能已经晚了)
- 2017世界GDP排行地图可视化
- 用ajax+jquery+json+css3+html5实现登录、注册、以及主页面的增删改查
- Linux知识入门(一)
- C++金拱门点餐结算系统_餐厅点单结算系统
热门文章
- java web程序设计教程范立锋 最后的图书馆理系统_JavaWeb程序设计 习题参考答案(第7章)...
- mysql没有实体框架_NET实体框架数据库更新未在MySQL数据库中创...
- 中专计算机应用完整教学计划,中职生教学计划
- java中使用httpget_如何在Java中进行HTTP GET?
- windows 串口中断编程_万变不离其宗之单片机串口共性问题
- linux 下 svn的安装和使用
- java对比swith和if的不同,浅谈选择结构if语句和switch语句的区别
- Modules:PETCTFusion-Documentation-3.6
- 英特尔为苹果代工基带芯片 是为X86逆袭移动市场铺路?
- nginx+kibana代理以及简单认证