Question

几天前我问了一个关于VBS的问题。我写了一个脚本，只要文件扩展名正确，就可以将文件从一个文件夹复制到另一个文件夹这个脚本出现了错误说法 “期待'然后'” 我不知道该如何解决这个问题？每当我把“Then”放在我认为合适的位置时，在if语法之后，它仍然会出现相同的错误。

这是我的代码，有人可以指出我正确的方向吗？

dim filesys

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "V:\Auto Audiowall Music Uploads\MUSIC\"

Set objFolder = objFSO.GetFolder(objStartFolder)
Wscript.Echo "Copying only .WAV and .MP3"

Set colFiles = objFolder.Files

For Each objFile in colFiles

If UCase(objFSO.GetExtensionName(objFile.name)) = "MP3" Then
objFSO.CopyFile objFile.Path, "V:\Auto Audiowall Uploads\New Music\"
objFSO.DeleteFile objFile.path
End If
If UCase(objFSO.GetExtensionName(objFile.name)) = "WAV" Then
objFSO.CopyFile objFile.Path, "V:\Auto Audiowall Uploads\New Music\"
objFSO.DeleteFile objFile.path
End If
If Ucase(objFSO.GetExtensionName(objFile.name)) != "MP3" Then
objFSO.DeleteFile objFile.path
End If
If Ucase(objFSO.GetExtensionName(objFile.name)) != "WAV" Then
objFSO.DeleteFile objFile.path
End If

Next

Wscript.echo "Music Copied."

Answer 1

VBScript不会将!=用于＆＃34;不等于＆＃34;。尝试将!=替换为<>。

旁注：

您的逻辑可以简化为：

If MP3 Then
    Copy
ElseIf WAV Then
    Copy
End If

DeleteFile

由于您似乎最终删除了每个文件。

VBS脚本问题

1 个答案: