COPIER, DÉPLACER, SUPPRIMER DES FICHIERS, DOSSIERS VIA MODULE
thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
-
13 nov. 2004 à 22:45
cs_sergiooi Messages postés 53 Date d'inscription vendredi 6 octobre 2006 Statut Membre Dernière intervention 7 octobre 2009 - 17 avril 2007 à 17:52
cs_sergiooi Messages postés 53 Date d'inscription vendredi 6 octobre 2006 Statut Membre Dernière intervention 7 octobre 2009 - 17 avril 2007 à 17:52
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/27514-copier-deplacer-supprimer-des-fichiers-dossiers-via-module
https://codes-sources.commentcamarche.net/source/27514-copier-deplacer-supprimer-des-fichiers-dossiers-via-module
17 avril 2007 à 17:52
public sub CopierDossier (Origine as string, Destination as string)
dim fs
set fs = createObject("Scripting,FileSystemObject")
fs.copyFolder Origine, Destination
set fs = nohing
end sub
et tu appel la fonction sur ta feuille:
fs.copierDossier "C:\NVIDIA", "D:\NVIDIA"
Tu n'as pas besoin de modifier(dim fs as new fs)
Moi en tout cas ca marche #1
17 avril 2007 à 13:47
Si le résultat est le même je préfère une sytaxe plus propre...
Et je l'execute pas depuis un module, j'en vois pas l'intérêt.
17 avril 2007 à 13:44
c'est EXACTEMENT ce qui est fait là :
Public Sub CopierDossier(Origine As String, Destination As String)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder Origine, Destination
Set fs = Nothing
End Sub
17 avril 2007 à 13:33
Dim fso As FileSystemObject
Set fso = New FileSystemObject
fso.CopyFolder "c:\sources", "c:\oldsources", True
Set fso = Nothing
Où "c:\sources" et "c:\oldsources" peuvent être remplacés par des variables qui contienent un chemin sélectionné par exemple.
;)
17 avril 2007 à 12:34
Voilà c'est exactement le code que je cherché mais j'arrive pas à le faire fonctionné.
J'ai créer le module et j'ai copier tout le code source dedans. (Il se nomme "FS" comme dans la source).
Ensuite le le clik d'un bouton j'ai inscrit :
Dim FS As New FS
FS.CopierDossier(c:\NVIDIA, d:\NVIDIA)
---------------------------------------
Erreur de compilation :
Attendu : Séparateur de liste ou )
---------------------------------------
J'ai donc modifié :
Dim FS As New FS
FS.CopierDossier("c:\NVIDIA", "d:\NVIDIA")
---------------------------------------
Erreur de compilation :
Attendu : =
---------------------------------------
Alors là je comprend pas ....
J'espère avoir été clair.
Merçi de votre aide
16 avril 2007 à 05:30
Mais merci bien d'avoir pris le temps de me répondre et aplus!
16 avril 2007 à 00:18
Je pense qu'un fichier se trouvant dans le dossier "PsxFin" est en cours d'utilisation au moment où tu veux supprimer le dossier. D'où l'accès refusé ! Essaye tout simplement de supprimer ce dossier toi même pour vérifier.
@+
14 avril 2007 à 22:31
fs.SupprimerDossier ("C:\Program Files\ÉmulInstall v1.0\psOne\PsxFin")
J'ai mis ton module dans mon projet qui copie et supprime des fichiers mais celui là m'envoie l'erreur #70
acces denied... Tout les autres se suppriment mais pas lui POURQUOOOOIII???
Voilà et encore merci. j'espère que tu sauras me répondre.
a+
27 févr. 2007 à 09:21
je trouve ta source bien utile.
La dernière fois j'ai dû créer un prog pour supprimer un fichier.
ta source aurait bien été utile.
8 août 2006 à 17:51
NOTE : 7/10
27 avril 2006 à 10:20
Private Sub Form_Load()
Dim Origine As String
Dim Dest As String
Call CopierDossier(Origine, Dest)
en définissant Origine et Destination (C:\...\....)
27 avril 2006 à 09:43
Ensuite dans ma form je rentre :
options.CopierDossier("C:\files", "C:\Documents and Settings\mon dossier\Desktop\projet Bis").
au moment ou je clique pour visualiser mon projet, ca me mets "erreur de synataxe"
Quelqu'un peut m'aider?
Merci!
22 févr. 2006 à 10:58
Car je travaille en vb6, et tous ces codes marchent, sauf que je n'ai pas celui qui traite les attributs des dossiers.
21 févr. 2006 à 22:47
car le code ki est sur cette page c'est du vb.net c pô pareil!!!!
21 févr. 2006 à 20:14
Effectivement, GetAttr et SetAttr marchent avec les fichiers, mais pas avec les dossiers ??
21 févr. 2006 à 19:15
21 févr. 2006 à 18:03
J'interviens dans votre discut mais ce code m'interresse beaucoup.
Je suis novice en VB et j'essaie d'employer ce module mais ça ne marche pas.
Je veux copier un dossier dans un autre, avec l'aide d'un bouton.
J'ai donc utilisé dans un module :
Public Sub CopierDossier(Origine As String, Destination As String)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder Origine, Destination
Set fs = Nothing
End Sub
et dans mon projet, j'ai inscrit :
Public Sub Command1_Click()
Call CopierDossier("C:\TOTO" As String, "D:\TOTO" As String)
End Sub
Ca ne marche pas et ça indique erreur de syntaxe.
Pkoi??
Une petite réponse serai la bienvenue...
Cdrique
21 févr. 2006 à 17:42
Enfin ceux qui apparaissent quand on fait "Propriétés"
21 févr. 2006 à 11:58
21 févr. 2006 à 10:02
Comment fait-on pour conserver les attributs d'un dossier que l'on veut copier?
12 août 2005 à 19:55
J'ai un peu modifié le code :
fs.CopyFile App.Path & "\7za.exe", "c:\7za.exe"
ce qui permet de copier un fichier spécifique, ici 7zip en ligne de commande du dossier source vers la racine du c:
7 avril 2005 à 10:03
6 avril 2005 à 17:26
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
6 avril 2005 à 16:25
4 févr. 2005 à 04:05
4 févr. 2005 à 03:57
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
13 nov. 2004 à 22:45
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