Copier, déplacer, supprimer des fichiers, dossiers via module

Télécharger le projet
Commenter

Description

Code qui permet de copier/déplacer/supprimer des fichiers ou des dossiers (et tout ce qu'il contient)
Très simple d'utilisation, copiez simplement ce code dans un module et ajoutez-le dans votre projet.
Utilisez ensuite NomModule.une_des_fonctions pour travailler sur vos fichiers/dossiers
Ou téléchargez le module zippé

Source / Exemple : 


Public Sub CopierDossier(Origine As String, Destination As String)
   Dim fs
   Set fs = CreateObject("Scripting.FileSystemObject")
       fs.CopyFolder Origine, Destination
   Set fs = Nothing

'Exemple : "C:\Dossier1", "C:\Dossier2\" Copiera Dossier1 dans Dossier2 ainsi que
           'tous les fichiers et dossiers contenus dans Dossier1
         ' "C:\Dossier1\*", "c:\Dossier2\" Copiera tout ce qui se trouve dans Dossier1
End Sub

Public Sub CopierFichier(Origine As String, Destination As String)
   Dim fs
   Set fs = CreateObject("Scripting.FileSystemObject")
       fs.CopyFile Origine, Destination
   Set fs = Nothing
   
'Exemple : "C:\Dossier\Fichier.ext", "C:\AutreDossier\Fichier.ext"
         ' *.ext ou *.* fonctionnent
End Sub

Public Sub CréerDossier(Destination As String)
   Dim fs
   Set fs = CreateObject("Scripting.FileSystemObject")
       fs.createfolder Destination
   Set fs = Nothing
       
'Exemple : "C:\Dossier\NouveauDossier"
End Sub

Public Sub DéplacerDossier(Origine As String, Destination As String)
   Dim fs
   Set fs = CreateObject("Scripting.FileSystemObject")
       fs.movefolder Origine, Destination
   Set fs = Nothing
       
'Exemple : "C:\Dossier1", "C:\Dossier2\" -> Déplacera Dossier1 dans Dossier2
End Sub

Public Sub DéplacerFichier(Origine As String, Destination As String)
   Dim fs
   Set fs = CreateObject("Scripting.FileSystemObject")
       fs.movefile Origine, Destination
   Set fs = Nothing
       
'Exemple : "C:\Fichier.ext", "C:\Dossier\" -> Déplacera Fichier.ext dans Dossier
         ' "C:\Fichier.ext", "C:\Dossier\AutreNom.ext -> Déplacera et renomera
End Sub

Public Sub SupprimerDossier(Destination As String)
   Dim fs
   Set fs = CreateObject("Scripting.FileSystemObject")
       fs.deletefolder Destination
   Set fs = Nothing
       
'Exemple : "C:\Dossier\Dossier_à_Supp" Supprimera Dossier_à_Supp
         ' "C:\Dossier\*" Supprimera tous les dossiers contenu dans Dossier
End Sub

Public Sub SupprimerFicher(Destination As String)
   Dim fs
   Set fs = CreateObject("Scripting.FileSystemObject")
       fs.deletefile Destination
   Set fs = Nothing
       
'Exemple : "C:\Dossier\Fichier_à_Supp.ext" Supprimera Fichier_à_Supp.ext
         ' *.ext et *.* fonctionnent
End Sub

Public Function VérifierLecteur(Lecteur As String)
   Dim fs
   Set fs = CreateObject("Scripting.FileSystemObject")
       VérifierLecteur = fs.DriveExists(Lecteur)
   Set fs = Nothing
       
'Exemple : ("C:") Vérifie si C: existe et renvoi Vrai ou Faux.
End Function
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.