Question

VBS复制，删除文件

Set mFSO = CreateObject("Scripting.FileSystemObject")
set folder=mFSO.GetFolder(oArgs(0))

dim df
For Each file In folder.files
'df=DateDiff("h",file.DateCreated,Now) '判断建立日期
df=DateDiff("h",file.DateLastModified,Now) '判断修改日期
If (df>2) Then '2小时前的文件
'MsgBox folder.path & "\" & file.Name & vbTab & file.DateCreated
'MsgBox folder.path & "\" & file.Name & vbTab & file.DateLastModified
file.Delete()
End If
Next
===================================
上述VBS代码中“ file.Delete()”是删除文件，
如何修改成 剪切到指定文件夹，
或者先复制到指定文件夹再删除？
新手 ，代码怎么改，谢谢大神

Answer 1

Sub MoveAFile(Drivespec)
Dim folder
Set folder = CreateObject("Scripting.FileSystemObject")
folder.MoveFile Drivespec, "c:\windows\desktop\"
End Sub

使用MoveFile即可。

追问

谢谢，这个怎么断行？新手