fichiers, gambas 3, Tutoriels - GB3- Copier recursivement fichiers et repertoires -

GB3- Copier recursivement fichiers et repertoires

( Temps de lecture estimé à Moins d'une minute)




Il est très simple de copier des fichiers sous gambas en utilisantl 'instruction COPY.
Seulement pour le moment il n 'existe pas d 'instruction toute prêtepour copier récursivement tous les dossiers et fichiers présentsdans un répertoire.
J 'ai donc créé une petite méthode pour le faire.

Il suffit d 'ajouter dans votre code cette méthode :

Private Sub mycopy(mysource As String, mydestination As String)
Dim s As String
Mkdir mydestination
For Each s In RDir(mysource, * )
If Not IsDir(mysource &amp/ s) Then
  If Not Exist(mydestination &amp/ s) Then
    Copy mysource &amp/ s To mydestination &/ s
Else
Mkdir mydestination &/ s
Endif
Next
End


Il vous suffit simplement de l 'appeler avec le code ci-dessous:


mycopy(foldertocopypath ,destinationpath)


foldertocopypath sera le chemin du répertoire à copier
destinationpath sera le répertoire qui recevra lesfichiers.

Merci pour votre attention et merci a vuott pour son aide.




Date de creation :
Redacteur : Rédigé par spheris
Classé dans : fichiers, gambas 3, Tutoriels