VBS - Gestion des fichiers et des dossiers avec FileSystemObject

Gestion des fichiers et des dossiers avec FileSystemObject

 

Plateforme : Windows
Détails : Les commandes pour gérer vos fichiers et dossier en VBS

 

Voici comment procéder pour bien gérer des fichiers / dossiers via un script VBS.
Pour toutes les manipulations vous aurez besoin de créer un objet du type FileSystemObject.

Comment gérer les fichiers ?


' Déclaration de l'objet FileSystemObject
dim Fso
set Fso = CreateObject ( "Scripting.FileSystemObject" )

' Pour copier un fichier
Fso.CopyFile src, dest, overwrite

' Pour déplacer un fichier
Fso.MoveFile src, dest

' Pour supprimer un fichier
Fso.DeleteFile src

' Pour vérifier si un fichier existe
if (Fso.FileExists(src) ) then
'le fichier existe
else
'le fichier n'existe pas
end if

' Pour retrouver le nom du fichier
Fso.GetBaseName (src)

' Pour retrouver le lecteur de l'emplacement du fichier
Fso.GetDriveName (src)

' Pour retrouver le chemin complet d'un fichier
Fso.GetAbsolutePathName(src)

' Pour retrouver les informations sur un fichier
set File = Fso.GetFile(src)

' Affiche le nom du fichier
MsgBox File.Name
' Affiche la taille du fichier
MsgBox File.size
' Affiche la date de création
MsgBox File.DateCreated
' Affiche la date de modification
MsgBox File.DateLastModified
' Affiche la date du dernier accès
MsgBox File.DateLastAccessed


Comment gérer les dossiers ?


' Déclaration de l'objet FileSystemObject
dim Fso
set Fso = CreateObject( "Scripting.FileSystemObject" )

' Pour copier un dossier
Fso.CopyFolder src, dest, overwrite

' Pour déplacer un dossier
Fso.MoveFolder src, dest

' Pour supprimer un dossier
Fso.DeleteFolder (dossier)

' Pour créer un dossier
Fso.CreateFolder (nom du dossier)

' Pour vérifier si un dossier existe
if ( Fso.FolderExists( dossier ) ) then
'le dossier existe
else
'le dossier n'existe pas
end if

' Pour retrouver le repertoire parent d'un fichier
Fso.GetParentFolderName(src)

' Pour retrouver les informations d'un dossier
set Folder = Fso.GetFolder (dossier)


'affiche le nom du dossier
MsgBox Folder.Name
'affiche la taille du dossier
MsgBox Folder.size



 

- haut de page -



About

Créateur de solutions innovantes
Android | iOS | Web | NFC

Keep in touch