Мне нужен скрипт, который перемещает все файлы (папки, winrar, и т. Д. c. Включены), сделанные в VBS или другие подобные (.bat et c.), Этот скрипт не берет целые файлы, только изображения и иногда блокноты (не работает каждый раз)
With CreateObject("Scripting.FileSystemObject")
.MoveFile "\\x\Desktop\*.*", "\\x\FilesDesktop"
.MoveFile "\\x\Desktop\"*".*", "\\x\FilesDesktop"
End With
, и я также использовал это, которое не работает
Set FSO=CreateObject("Scripting.FileSystemObject")
Set fldr= FSO.GetFolder("D:\Desktop\")
Set Collec_Files= fldr.Files
For Each File in Collec_Files
If Collec_Files.count < 1 then
msgbox("Need more files")
Else
FSO.MoveFile "D:\Desktop\*", "D:\FilesDesktop"
End If
Next
Пожалуйста, помогите мне, мне нужно передать файлы целиком папка автоматически, => у меня рабочий стол на том же диске, что и целевая папка, спасибо!