Créer un répertoire et copier un fichier

Question

Dans VBS, comment créer un répertoire, puis y copier un fichier?

Id aime créer un dossier à la racine de C, par exemple. C: \ dossier, puis copiez un fichier de \ server \ dossier \ fichier.ext dans ce nouveau dossier

Answer 1

Utilisez l'objet FileSystemObject, à savoir ses méthodes CreateFolder et CopyFile. En gros, voici ce que votre script ressemblera:

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

Vous pouvez également ajouter une logique supplémentaire, comme vérifier si le dossier que vous voulez créer existe déjà (car CreateFolder soulève une erreur dans ce cas) ou en spécifiant s'il faut écraser ou non le fichier en cours de copie. Ainsi, vous pouvez vous retrouver avec ceci:

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

Vous pouvez utiliser la coque à cette fin.

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