Vbscript 文件不会移动到文件夹vbs

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

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，这样你就可以看到文件.EXE，它实际上就是.VBS本身，我不熟悉这种语法，但下面这行看起来像是希望文件夹变量是一个字符串

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

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

Set folder = fso.GetSpecialFolder(1)

如果将文件夹转换为字符串，则可能不会出现注释中提到的错误

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

~~

另一种尝试是以下代码：

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

---

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

我想，下一步我会删除错误恢复，或者至少在错误转到0后关闭错误捕获。这应该会给你一条错误消息，可能会帮助你调试它。因此，它得到的错误是在第12行，它说找不到路径。在修复格式设置后，我要做的前两件事是，让你知道发生了什么，然后删除on error Resume Next和空的If Err.Number0然后End If block，这样你就可以知道出了什么问题。如果你把头从沙子里伸出来，注意它们，而不是把它们都藏起来，然后想知道为什么它不起作用，那么识别错误就更容易了。你没有收到错误消息，因为你故意隐藏了所有的错误消息。嗯，我照你说的做了，结果是c:\windows\system32\File.exe，但文件在桌面上。这就是代码将要尝试使用的文件夹。如果需要不同的文件路径，可能需要对其进行硬编码，而不是使用fso.GetSpecialFolder1。但无论您使用什么路径，请确保它存在，并确保您的脚本将具有读/写权限。可能是因为C:\552ntn7mk23n124kv1053bmoss5\File.exe不存在，所以在原始代码的第12行出现了错误。您的代码创建了文件夹，但它是否将File.exe放在其中？如果没有，您肯定会得到一个错误。