Question

怎样用vbs剪切一个文件夹所有txt文件（包括子文件夹）到E盘

Answer 1

'清单
'1.获得文件夹中的所有.txt文件
'2.将所有文件移动到E:盘'函数MoveTxtFiles(folderspec)
'parameter1 folderspec类型字符串 文件夹名Function MoveTxtFiles(folderspec)
Dim fso,fl,fs
Set fso=CreateObject("Scripting.FileSystemObject")
Set fl = fso.GetFolder(folderspec)
Set fs=fl.Files
for each f in fs
If SearchTxtFile("\.txt$",f.Name) Then
f.Move("E:\")
End If
next
Set fso=Nothing
End Function '函数SearchTxtFile(pattern,Fn) 匹配 文件扩展名
'parameter1 pattern 匹配模式 字符串类型
'parameter2 Fn 文件名 字符串类型
Function SearchTxtFile(pattern,Fn)
Dim regEx,Matches
Set regEx=new RegExp
regEx.Pattern = pattern
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(Fn)
for each Match in Matches
SearchTxtFile=True
Exit Function
Next
SearchTxtFile=False
Set regEx=Nothing
End Function
MoveTxtFiles("C:\")

Answer 2

用
语句：name 可以改名。又可以移动

Answer 3

用bat指令嵌套，如果直接用vbs，会发现没有权限的

Answer 4

先绑定本地计算机，写个把.txt结尾的VB就行