VBS遍历文件或文件夹路径输入文件的所有绝对路径(附源码)
2012-03-08 14:04
751 查看
源码如下:
.csharpcode, .csharpcode pre
{
font-size: small;
color: black;
font-family: consolas, "Courier New", courier, monospace;
background-color: #ffffff;
/*white-space: pre;*/
}
.csharpcode pre { margin: 0em; }
.csharpcode .rem { color: #008000; }
.csharpcode .kwrd { color: #0000ff; }
.csharpcode .str { color: #006080; }
.csharpcode .op { color: #0000c0; }
.csharpcode .preproc { color: #cc6633; }
.csharpcode .asp { background-color: #ffff00; }
.csharpcode .html { color: #800000; }
.csharpcode .attr { color: #ff0000; }
.csharpcode .alt
{
background-color: #f4f4f4;
width: 100%;
margin: 0em;
}
.csharpcode .lnum { color: #606060; }
Function listFilesPath(filepath)
t1=Timer() Debug.WriteLine "****现在开始执行计数,用时:"+CStr(t1) Set fso=CreateObject("scripting.filesystemobject") Set myfolder=fso.GetFolder(filepath) If fso.FolderExists(filepath) then Set subcol=myfolder.SubFolders Set filescol=myfolder.Files For Each file In filescol Debug.WriteLine filepath+"\"+file.name Next If subcol.count>0 Then For Each folder In subcol 'Debug.WriteLine filepath+"\"+folder.Name listFilesPath(filepath+"\"+folder.Name) next End if Else Debug.WriteLine "没有该文件系统" End if Set filescol=Nothing Set subcol=nothing Set fso=Nothing t2=Timer() Debug.WriteLine "****现在完成计数,用时:"+CStr(t2) Debug.WriteLine "整个操作过程用时:"&CStr(t2-t1)&" 秒" End function
.csharpcode, .csharpcode pre
{
font-size: small;
color: black;
font-family: consolas, "Courier New", courier, monospace;
background-color: #ffffff;
/*white-space: pre;*/
}
.csharpcode pre { margin: 0em; }
.csharpcode .rem { color: #008000; }
.csharpcode .kwrd { color: #0000ff; }
.csharpcode .str { color: #006080; }
.csharpcode .op { color: #0000c0; }
.csharpcode .preproc { color: #cc6633; }
.csharpcode .asp { background-color: #ffff00; }
.csharpcode .html { color: #800000; }
.csharpcode .attr { color: #ff0000; }
.csharpcode .alt
{
background-color: #f4f4f4;
width: 100%;
margin: 0em;
}
.csharpcode .lnum { color: #606060; }
相关文章推荐
- 详解shell 遍历文件夹内所有文件并打印绝对路径
- 利用递归算法遍历所有文件并打印文件绝对路径(包括文件夹)
- JAVA 一个简单的文件写入代码(遍历文件夹获取所有文件、写入缓冲池、获取文件绝对路径、按后缀名过滤文件)
- Python:遍历输出某路径下的所有文件和文件夹
- tcl/tk实例详解——返回一个文件夹下所有文件的绝对路径
- Windows和Linux下枚举(遍历)当前文件夹下所有文件完整路径的命令行
- 使用php scandir()函数遍历文件夹并输出所有文件路径
- c++遍历查找文件夹路径下的所有文件(比如.txt) 使用的是MFC的CFileFind类
- Linux下c++遍历文件夹中文件及读取绝对路径
- 在java中如何遍历某个路径下的所有文件夹和文件
- 用JAVA扫描指定文件夹下面所有以.txt结尾的文件,并将其绝对路径输出 .
- 获取当前文件夹下面某文件的所有绝对路径
- 从键盘输入接收一个文件夹路径,打印出该文件夹下所有的.txt文件名(后缀名文件)
- 【Python】遍历某目录下的所有文件夹与文件的路径、输出中文乱码问题
- C#控制台基础 directory获取一个文件夹中所有文件的绝对路径(不包括文件夹)
- C#遍历所有磁盘文件,并输出文件的绝对路径
- php遍历文件夹下面的所有文件,得到文件路径
- C#控制台基础 directory获取一个文件夹中所有文件及文件夹的绝对路径
- 遍历指定文件下所有的文件夹和文件的路径,文件名,修改日期,类型
- tcl/tk实例详解——返回一个文件夹下所有文件的绝对路径