Copie de dossiers, fichers ...

Question

Bonjour tout le monde , ce code me pose probl&#232;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&#233;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&#233; dans le repertoire de destination... 



Alors pouquoi erreur ??





Merci ;)

cs_CanisLupus · Answer

Salut,

Il y a surement 1 ou des fichiers systeme et/ou readonly et/ou cach&#233; quelquepart.

Cordialement, CanisLupus

Kami1357 · Answer

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 &#231;a m'aiderai bien !!!



Merci ;) ;) ;)

cs_CanisLupus · Answer

Essaie &#231;a :

      If Dir(Juska, vbDirectory) = "" Then
        MkDir Juska ' tu cr&#233;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&#233;part

Cordialement, CanisLupus

Kami1357 · Answer

merci &#231;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&#233;s &#224; des endroits dif&#233;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&#224; MERCI !!!!

Copie de dossiers, fichers ...

4 réponses

Discussions similaires