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

'清单
'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:\")

用 语句：

name 可以改名。又可以移动