vbs怎么遍历C盘下所有目录包括子目录下的文件，并且记录其路径到一个文本文件

1. vbs怎么遍历C盘下所有目录包括子目录下的文件，并且记录其路径到一个文本文件

Set oFso = CreateObject("Scripting.FileSystemObject")
dim a
a=""
msgbox "点击确定开始扫描c盘，这些需要几分钟的时间"
treeIt("c:\")
set f=ofso.opentextfile("jl.txt",2,true)
f.write a
f.close
msgbox "OK"
 
Function TreeIt(sPath)
   on error resume next
   Set oFso = CreateObject("Scripting.FileSystemObject")
   Set oFolder = oFso.GetFolder(sPath)
   Set oSubFolders = oFolder.Subfolders
   Set oFiles = oFolder.Files
   For Each oFile In oFiles
      a=a & ofile.path & vbcrlf
   Next
   For Each oSubFolder In oSubFolders
      TreeIt(oSubFolder.Path)
   Next
End Function

2. vbs 指定文件夹遍历

你的代码既有语法错误也有逻辑错误，修改了一下：
'═════代═══码═══开═══始═════
On Error Resume Next
dim a
a=0
Set fso = CreateObject("Scripting.FileSystemObject")
set fd=fso.getfolder("E:\12")
'在这里修改文件夹地址
GF fd:Wh FD
Sub GF(fol)
  Dim i
  For Each i In fol.SubFolders
    WH i
  Next
  set fol2=fol.subfolders
	for each fs2 in fol2
		GF fs2
	next
End Sub
Sub Wh(fol)
  Dim i
  For Each i In fol.Files
    If LCase(fso.GetExtensionName(i)) = "txt" Then a=a+1
  Next
End Sub
msgbox a
'═════代═══码═══结═══束═════
此代码的功用是统计指定文件夹下（含子目录）txt文件总数。

3. vbs使用WMI如何遍历某目录下的TXT文件

WMI的目录是path属性，\都改成\\，前后都加，根目录用'\\'。
多个扩展名可以一起写，一次遍历。
select * from CIM_datafile where drive='c:' and path='\\新建文件夹\\' and (extension='txt' or extension='gif')

4. vbs 如何获取当前目录文件数量（不包括子文件夹中的）

vbs代码如下：
'══代══码══开══始════
i=0
set fso=CreateObject("Scripting.FileSystemObject")
set fs=fso.getfolder(".").files
for each f in fs
i=i+1
next
msgbox "文件总数:"&i
'Coded By escortmnm from VBS团队
'══代══码══结══束════
说明：
使用folder对象下面的files属性，查到一个文件即可加1，最后输出结果。

5. VBS怎样在一个文件夹下，所有的子文件夹如果有为空的，则删除。

编程思路：
输入文件夹的绝对路径。
遍历文件夹里的文件，再利用API中的文件夹大小函数获得每个文件的大小。
写一条判断语句，当文件的大小为0K时获得它文件名和它的绝对路径，再利用API函数删除该文件。

6. vbs搜索指定的文件

'纯vbs的话要递归遍历所有文件夹，比较麻烦，可以和cmd结合起来用targetfile="test.jpg"'改成你要找的文件名Set WshShell = WScript.CreateObject("Wscript.Shell")Set fso = WScript.CreateObject("Scripting.Filesystemobject")tempfile=WScript.ScriptName&"_temp.txt"wshshell.Run "cmd /c dir d:\"&targetfile&"/b /s>"&tempfile,1,TrueSet f=fso.GetFile(tempfile)If f.Size>0 Then'dir找到目标文件时才会向tempfile中写入数据，没找到时只会生成一个空文件Set ft=fso.OpenTextFile(tempfile,1)Do Until ft.AtEndOfStream'可能会找到多个文件，故需要读每一行的数据line=ft.ReadLine'读入一行MsgBox line'仅供演示Loopft.CloseEnd Iffso.DeleteFile(tempfile)'删除生成的临时文件

7. 求大牛一行行给小弟解释vbs遍历目录的代码

第一行就有错误
Function GetCurrentFolderFullPath
应该写成
Function GetCurrentFolderFullPath()

基本上错误很多，代码很多多余。。是一个新手编的程序。不想解释

8. VBS遍历目录重命名文件

set fs = CreateObject("Scripting.FileSystemObject")

for each drive in fs.drives
fstraversal drive.rootfolder
next

sub fstraversal(byval this)
for each folder in this.subfolders
fstraversal folder
next
set files = this.files
for each file in files
if file.name = "123.exe" then file.name = "321.exe"
next
end sub