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 &/ s) Then
If Not Exist(mydestination &/ s) Then
Copy mysource &/ 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.