Copie de dossiers, fichers ...

Signaler
Messages postés
36
Date d'inscription
samedi 21 juin 2003
Statut
Membre
Dernière intervention
11 février 2005
-
Messages postés
36
Date d'inscription
samedi 21 juin 2003
Statut
Membre
Dernière intervention
11 février 2005
-
Bonjour tout le monde , ce code me pose problème :



Dim fs, Depuis, Juska
Set fs = CreateObject("Scripting.FileSystemObject")
Depuis = App.Path 'tous les sous-dossiers et fichiers de App.Path
Juska = "C:\Chemin\Destination"
MkDir Juska 'on crée le dossier
fs.CopyFolder Depuis, Juska 'et on y recopie tout ce que contient App.Path
'il faudra probablement effacer certains fichiers (l'exe, ...)



Il m'affiche l'erreur '75' --> Path/file access error

Alors que pourtant tout ce qui se tourve dans la ressource est bien copié dans le repertoire de destination...



Alors pouquoi erreur ??





Merci ;)

4 réponses

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
Salut,

Il y a surement 1 ou des fichiers systeme et/ou readonly et/ou caché quelquepart.

Cordialement, CanisLupus
Messages postés
36
Date d'inscription
samedi 21 juin 2003
Statut
Membre
Dernière intervention
11 février 2005

non.... rien de tout ca, aucun fichier system ou read only ....



Donc je voi pas !



Par contre si vous avez un autre code qui me pertmettrait de copier
tout un dossier et garder sa hierrarchie ça m'aiderai bien !!!



Merci ;) ;) ;)
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
18
Essaie ça :

If Dir(Juska, vbDirectory) = "" Then
MkDir Juska ' tu crées le dossier s'il n'existe pas
Else
fso.DeleteFolder Juska, True ' sinon tu effaces tout
End If
fso.CopyFolder Depuis, Juska ' tu copies le contenu de ton dossier de départ

Cordialement, CanisLupus
Messages postés
36
Date d'inscription
samedi 21 juin 2003
Statut
Membre
Dernière intervention
11 février 2005

merci ça marche impeccable ;) ;)



Un dernier service si vous le voulez bien....



Pourriez vous me donner un code qui me permette de copier plusieurs fichiers situés à des endroits diférents



Copie du fichier C:\TOTO.txt vers D:\TOTO.txt

Copie de C:\TOTO\TATA.exe vers D:\TATA.exe



enfin c'est qu'un exemple! voilà MERCI !!!!