Я пытаюсь создать действие VBS для перемещения всех файлов .jpg, содержащихся в нескольких папках, в новую папку на моем компьютере, но при запуске сценария все равно получаю ошибку компиляции. Пожалуйста, не могли бы вы помочь? Скрипт показан ниже. В моем сообщении об ошибке компиляции Microsoft VBSScript указано недопустимый код символа 800A0408, строка 1, символ 14 в сценарии E: \ GPhotos \ MoveFiles
Folderspec = "E:\GPhotos\Pictures"
Set fs = CreateObject("Scripting.FilesystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Subfolders
For Each f1 in fc
SubFolderSpec = folderspec&"\"&f1.name
NewFolder = "E:\GPhotos\All"
Fs.MoveFile SubFolderSpec & "\*.jpg", NewFolder
Next
Msgbox "Done"