Erstellen Sie ein Verzeichnis und kopieren Sie eine Datei

Question

In VBS wie machen Sie ein Verzeichnis und kopieren Sie dann eine Datei hinein?

Ich möchte einen Ordner im Stammverzeichnis von C erstellen, z. C: \ Ordner und kopieren Sie dann eine Datei von \ server \ folder \ file.ext in diesen neuen Ordner

Answer 1

Verwenden Sie das FileSystemObject Objekt, nämlich seine CreateFolder und CopyFile Methoden. Im Grunde ist es das, was Ihr Skript wie folgt aussehen:

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\" 

Sie können auch zusätzliche Logik, wie die Überprüfung, ob der Ordner, den Sie bereits erstellen möchten hinzufügen möchten vorhanden ist (weil CreateFolder einen Fehler in diesem Fall wirft) oder Angabe ob die zu kopierende Datei überschrieben werden soll oder nicht. So können Sie damit enden:

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 

Answer 2

Sie können die Shell für diesen Zweck verwenden.

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