TUTOS.EU

Déplacer un répertoire

Déplacer un répertoire dans un autre.

Dim objFSO

RepertoireSource = "D:\Toto\MonrepertoireNommeToto"
RepertoireCible = "E:\MonrepertoireNommeToto"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FolderExists(RepertoireSource) = True) And (objFSO.FolderExists(RepertoireCible) = True) Then
	Call objFSO.MoveFolder RepertoireSource, RepertoireCible
End If
Set objFSO = Nothing
Lien vers le fichier : cliquez ici Copier le code

Pages Web

Site WebDescription
MSD MoveFolder methodMéthode MoveFolder sur le MSDN

Article(s) précédent(s)

2