Page en cours de chargement

Donnez votre avis..
Que pensez-vous de gambaslinux.fr?
 
Interessant
Il manque des rubriques
excellent site
Résultats
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
_gb3.pngUtiliser les fichiers - Copier recursivement fichiers et repertoires
Copier récursivement des fichiers et dossier sous gambas


Il est très simple de copier des fichiers sous gambas en utilisant l'instruction COPY.
Seulement pour le moment il n'existe pas d'instruction toute prête pour copier récursivement tous les dossiers et fichiers présents dans 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 les fichiers.

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


Date de création : 07/04/2022 @ 21:01
Dernière modification : 07/04/2022 @ 21:01
Catégorie : Utiliser les fichiers
Page lue 244 fois


Imprimer l'article Imprimer l'article


react.gifRéactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !


ACCES RAPIDE
RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^