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

Soyez le premier à donner votre avis sur cette source.

Vue 23 414 fois - Téléchargée 2 151 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
3 -
ton code a un gros gros gros probleme.

tu cree des objets et tu ne les detruis jamais.
donc si j'utilise tes fonctions dans un programmes qui fait plein de manip de fichiers pendant des jours, j'explose la memoire windows et donc crash machine.

si tu fais un :
Set fs = CreateObject("Scripting.FileSystemObject")
il faut toujours faire un :
Set fs = nothing pour finir.

en plus il existe deja des fonctions toutes faites sous VB simple d'utilisations et optimisés:
MKDIR,RMDIR,KILL

l'utilisation d'objets Scripting.FileSystemObject incombe une version IE5.0 minimum d'installé sur le PC
ludovicanceaux
Messages postés
441
Date d'inscription
mardi 21 octobre 2003
Statut
Membre
Dernière intervention
6 mai 2010
1 -
dis moi ke ve dire MKDir & RMDir en fait je n'ai jamais touché o vb
je suis juste en vb.net mai etant donné ke la fonction kill fonctionne pe etre que ces 2 là foonctionne ossi.
dis moi tu pourrai donner un exemple d'utilisation de chaque fonction stp!!!!!!!!!
merci
ludovicanceaux
Messages postés
441
Date d'inscription
mardi 21 octobre 2003
Statut
Membre
Dernière intervention
6 mai 2010
1 -
Superbe ta source j'ai pu l'introduire ds la mienne en VB.net ss pb merci 10/10 pour ca franchement super!!!!!!!!!!!!!!!!!!!!!!
ronnie95
Messages postés
32
Date d'inscription
lundi 6 décembre 2004
Statut
Membre
Dernière intervention
9 novembre 2006
-
slt je début en vb et pourrais tu mettre un exemple d'utilisation des des fonction, au moin pour la premiere merci +
ludovicanceaux
Messages postés
441
Date d'inscription
mardi 21 octobre 2003
Statut
Membre
Dernière intervention
6 mai 2010
1 -
en fait c un truc simple tu a juste a placer ce module ds ton projet vb et d'appeler ce module en faisant par exemple :
dim MyModule as new Mymodule
myModule.CopierDossier(c:\Dossier d'origine, d:\Dossier de destination)

etc.... pour toute les procédure du module
ex:
- CopierDossier
- CopierFichier
- CréerDossier
- DéplacerDossier
- DéplacerFichier
- DéplacerFichier
- SupprimerFicher

ou alors tu pe très bien te passer du module et inclure direct le code ss le bouton de ton choix

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.