Question

我正在尝试将具有特定扩展名的多个文件复制到另一个文件夹，继承我正在使用的代码，不太熟悉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

Answer 1

您在CopyFile函数中错误地连接了字符串。您需要使用＆符号（&）来连接VBScript中的字符串。

不过，您可以使用objFile.Path而不是连接字符串来创建完整的源路径。

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

或者您可以使用File对象的Copy函数：

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

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

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

1 个答案: