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

我不熟悉这种语法，但下面这行看起来好像期望folder变量是一个字符串。

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

在代码中，您似乎将folder设置为对象。

Set folder = fso.GetSpecialFolder(1)

如果您将folder转换为字符串，则可能无法收到评论中提到的错误。

~~

要尝试的另一件事是以下代码：

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

（我不确定是否＆＃34;警报＆＃34;或＆＃34; Msgbox＆＃34;或其他。）该测试将向您显示文件路径是否有意义。如果您在该测试的第3行收到错误，请尝试在警报（或Msgbox）之前将folder转换为字符串。

文件不会移动到文件夹vbs

1 个答案: