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 1416 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

doc.png DOCUMENTATION
forum.png   FORUM GAMBAS
logiciel.png LOGICIELS GB
 gb3logo.png  GAMBASFORGE
 mailing.png  MAILING LIST
 bugtracker.png  Gambas Bug Tracker

RECHERCHE




LES INSTRUCTIONS
Divers
INSTRUCTIONS
Où ça, qui ça?
actualite et medias
compteur gratuit
VISITES

   visiteurs

   visiteurs en ligne

ARCHIVES GAMBAS 1/2
^ Haut ^