Windows Scripts
VBScript
Copier un répertoire (CopyFolder)


Pour : Windows


Pour copier un dossier, il faut utiliser l'objet "CopyFolder".
Il suffit de saisir le répertoire source à copier et le répertoire de destination où le dossier sera copié, voir la syntaxe ci-dessous.

Syntaxe:

fso.CopyFolder [repertoire_source], [repertoire_destination]

Voici un exemple très simple qui tient en 2 lignes pour illustrer une copie de fichier.
On va copier le dossier "test" qui se trouve à la racine de "C:\" vers le répertoire "c:\Windows\".

Exemple:

'*** Déclaration de la variable
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

'*** Copie du dossier "c:\test" vers "c:\Windows\"
fso.CopyFolder "c:\test", "c:\Windows\"

Dans le prochain exemple, le script VBS va faire une copie de dossier mais en plus on va vérifier la présence du dossier dans le répertoire de destination.
Si le répertoire de destination existe, la copie ne sera pas effectué.
Mais si le répertoire de destination n'existe pas, la copie sera effectué.
PS: Les phrases en gris clair et qui commence par '*** ne sont là que pour commenter le script VBS.

Exemple:

'*** Déclaration des variables
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dim repSOURCE : repSOURCE = "c:\test"
Dim repDESTINATION : repDESTINATION = "c:\Windows\"
Dim repVERIF : repVERIF = "c:\Windows\test"

'*** Une condition (If) pour vérifier l'existance du répertoire qui est stocké dans la variable "repVERIF".
If fso.FolderExists(repVERIF) Then
		wscript.echo " [  ] Le dossier " & repVERIF & " existe déjà, STOP!!!"
	Else
'*** Copie du dossier contenu dans la variable "repSOURCE" vers le dossier contenu dans la variable "repDESTINATION".
		fso.CopyFolder repSOURCE, repDESTINATION
		wscript.echo " [OK] Le dossier à été copié"
End If

'*** Destruction des objets
Set fso = Nothing

Par O.Cédric
Sur www.octetmalin.net

Article publié le:
10/10/2014 23:29

Cette page vous à plus?

Dîtes que vous l'aimez en cliquant sur le bouton Facebook.

Contact - Informations -