文件不会移动到文件夹vbs

Question

因此，我写了一个脚本，删除一个文件夹，然后将该文件移动到它自己删除的文件夹。文件夹可以很好地放下，但文件不会移动。有人能看出我的代码有什么问题吗？或者给我一个更好的方法来移动文件。我也没有收到关于尝试移动文件的错误消息。

Dim folder,fso,filsys,C    
Set fso = CreateObject("Scripting.filesystemObject")    
Set folder = fso.GetSpecialFolder(1)    
Set wshshell = CreateObject("wscript.shell")    
Set filesys = CreateObject("scripting.filesystemobject")    
Set objfso = CreateObject("Scripting.filesystemObject")  
Set c = fso.GetFile(Wscript.scriptFullname)

On Error Resume NEXT

Set objFolder = objFSO.CreateFolder("C:\55egr932ntn7mk23n124kv1053bmoss5")
If Err.Number<>0 Then 
End If

WScript.Sleep 3000
C.Move ("C:\552ntn7mk23n124kv1053bmoss5\File.exe") (folder&"\File.exe")

我有一个程序，我用它把VBS变成和EXE，所以你可以看到“file.exe”，这真的是。VBS本身

Answer 1

我不熟悉这种语法，但下面的一行似乎希望文件夹变量是字符串。

C.Move ("C:\552ntn7mk23n124kv1053bmoss5\File.exe") (folder&"\File.exe")

在前面的代码中，您似乎正在将文件夹设置为对象。

Set folder = fso.GetSpecialFolder(1)

如果您将文件夹转换为字符串，您可能不会得到您在评论中提到的错误。

~~

另一种尝试是以下代码：

Set fso = CreateObject("Scripting.filesystemObject")
Set folder = fso.GetSpecialFolder(1)
Alert (folder&"\File.exe")

（我不确定它是“Alert”还是“Msgbox”或其他内容。）该测试将显示文件路径是否合理。如果在该测试的第3行出现错误，请尝试将文件夹转换为警报前的字符串（或Msgbox）。