Vbscript 使用VBS复制某些文件扩展名

我正在尝试将多个具有特定扩展名的文件复制到另一个文件夹中，这是我正在使用的代码，对VBS不太熟悉，但有人能告诉我正确的方向吗

dim filesys

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

Set objFolder = objFSO.GetFolder(objStartFolder)
Wscript.Echo objFolder.Path

Set colFiles = objFolder.Files

For Each objFile in colFiles

If UCase(objFSO.GetExtensionName(objFile.name)) = "MP3" Then
objFSO.CopyFile "V:\Auto Audiowall Music Uploads\MUSIC\".objFile.Name.".mp3", "V:\Auto Audiowall     Uploads\New Music"
End If
If UCase(objFSO.GetExtensionName(objFile.name)) = "WAV" Then
objFSO.CopyFile "V:\Auto Audiowall Music Uploads\MUSIC\".objFile.Name.".wav", "V:\Auto Audiowall Uploads\New Music"
End If
Next

---

您在

CopyFile

函数中错误地连接了字符串。您需要使用符号（

&

）来连接VBScript中的字符串

但是，您可以使用

objFile.Path

而不是串联字符串来创建完整的源路径

objFSO.CopyFile objFile.Path, "V:\Auto Audiowall Uploads\New Music\"

或者您可以使用

文件

对象的

复制

功能：

objFile.Copy "V:\Auto Audiowall Uploads\New Music\"

---

在任何一种情况下，都应以斜杠结束目标路径，以便VBScript知道您正在复制到文件夹中，而不是复制以创建新文件。

您的问题是什么？尝试将具有特定扩展名的多个文件复制到另一个文件夹中，代码不确定抱歉，代码不起作用，有一个错误，说明无法找到指定的文件，谢谢，非常有用！文件对象复制（自身）的方法称为.copy（不是.CopyFile）；cf.@Ekkehard.Horner感谢您的关注。更新。