Question

如何用vbs中fso的move方法来移动文件呢，为什么我写的总是移动不了啊啊啊啊

For Each objfile In objfiles.Files
If fso.getfile(objfile).Type="媒体文件 (.avi)" Then
' If Not fso.FileExists("d:\aaa"&fso.GetFile(objfile).name) Then
fso.GetFile(objfile).Move "d:\bbb"
' End If
end if
Next

Answer 1

看看这样呢 托东文件在这个VBS文件上

'It's a testing VBSFile
If WScript.Arguments.Count=0 Then WScript.Quit
Dim FSO,CatchFile
Set FSO=CreateObject("Scripting.FileSystemObject")
Set CatchFile=FSO.GetFile(WScript.Arguments(0))
CatchFile.Move "C:\" & CatchFile.Name
WScript.Echo "Got it?"