GESTION DE FICHIERS (FILESYSTEM)

'Declaration
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")




'Copie fichier.exe vèrs le_fichier.exe
fs.copyfile "C:\LE_DOSSIER\fichier.exe", "C:\UN_AUTRE_DOSSIER\le_fichier.exe", True
'pour copier tous les fichier .exe :
fs.copyfile "C:\LE_DOSSIER\*.exe", "C:\UN_AUTRE_DOSSIER\", True
'pour copier tout un Dossier :
fs.copyFolder "C:\LE_DOSSIER\*", "C:\UN_AUTRE_DOSSIER\", True
'pour cree un Rep :
fs.CreateFolder "C:\MON_REP\NOUVEAUREP"
'Suprimer tous les fichier dans un dossier (tous les *.tmp par ex)
fs.DeleteFile "C:\TEMP\*.tmp", True
'Pour suprimer un Doc :
fs.DeleteFolder "C:\WINDAUBE\*", False
'Voir si un Disque existe
fs.DriveExists ("X:") 'Cette ligne renvoi Vrai (True) ou Faux (False)
'pour terminer nous alons voir comment deplacer un Fichier
fs.moveFile "C:\windows\system\VB6fr.dll", "C:\windows\bureau\"
'ou un dossier
fs.moveFolder "C:\windows\system\", "C:\windows\bureau\System\"