Создайте каталог и скопируйте файл

В VBS, как вы создаете каталог, а затем копируете в него файл?

Id нравится делать папку в корне C, например. C: \, а затем скопируйте файл из \server\folder\file.ext в эту новую папку

Ответ 1

Используйте объект FileSystemObject, а именно CreateFolder и CopyFile. В основном, это будет выглядеть ваш script:

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")

' Create a new folder
oFSO.CreateFolder "C:\MyFolder"

' Copy a file into the new folder
' Note that the destination folder path must end with a path separator (\)
oFSO.CopyFile "\\server\folder\file.ext", "C:\MyFolder\"

Вы также можете добавить дополнительную логику, например, проверить, существует ли папка, которую вы хотите создать, (потому что CreateFolder вызывает ошибку в этом случае) или указывает, следует ли перезаписывать скопированный файл. Итак, вы можете в итоге:

Const strFolder = "C:\MyFolder\", strFile = "\\server\folder\file.ext"
Const Overwrite = True
Dim oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")

If Not oFSO.FolderExists(strFolder) Then
  oFSO.CreateFolder strFolder
End If

oFSO.CopyFile strFile, strFolder, Overwrite

Ответ 2

Вы можете использовать оболочку для этой цели.

Set shl = CreateObject("WScript.Shell") 
shl.Run "cmd mkdir YourDir" & copy "