apang

保存为TEST.VBS，将需要复制的文件或文件夹拖拽到TEST.VBS上。这样应该没黑框了^_^

Set FSO = CreateObject("Scripting.FileSystemObject")
Arg = WScript.Arguments(0)
A = Split(Arg,"\")
If Not FSO.FolderExists("D:\文件备份") Then 
   FSO.CreateFolder("D:\文件备份")
End If
If FSO.FileExists(Arg) Then
   FSO.MoveFile Arg,"D:\文件备份\"
Else
   FSO.CopyFolder Arg, "D:\文件备份\" & A(UBound(A)),True
   FSO.DeleteFolder(Arg)
End If
复制代码