[RESOLU] ExamineDirectory() répétition ....
Publié : lun. 15/févr./2016 21:26
Bonsoir,
Quand on connait le nombre de dossiers à copier, pas de problème, mais quand on ne connait pas ce nombre?
Combien de fois doit on écrire cette instruction ExamineDirectory() ??
Y a t il un moyen plus simple (plus court) de parcourir tous les dossiers sans réécrire n fois cette instruction?
Merci
Quand on connait le nombre de dossiers à copier, pas de problème, mais quand on ne connait pas ce nombre?
Combien de fois doit on écrire cette instruction ExamineDirectory() ??
Y a t il un moyen plus simple (plus court) de parcourir tous les dossiers sans réécrire n fois cette instruction?
Merci
Code : Tout sélectionner
Source$="e:\"
Dest$="f:\"
If ExamineDirectory(0,source$)
While nextDirectoryEntry(0)
If DirectoryEntryType(0)=#DirectoryEntryDirectory ;on suppose l'absence des "." et des ".."
Dossier$=DirectoryEntryName(0)
;1er sous-dossier
Dir1$=source$+dossier$+"\"
If ExamineDirectory(1,dir1$)
While nextDirectoryEntry(1)
If DirectoryEntryType(1)=#DirectoryEntryDirectory
Dossier$=DirectoryEntryName(1)
;2ème sous-dossier
dir2$=dir1$+"\"+dossier$+"\"
If ExamineDirectory(2,dir2$)
While nextDirectoryEntry(2)
If DirectoryEntryType(2)=#DirectoryEntryDirectory
Dossier$=DirectoryEntryName(2)
;3ème sous-dossier
.....
.... ET AINSI DE SUITE JUSQU'A L'INFINI ....
Endif
Wend
FinishDirectroy(2)
EndIf
Endif
Wend
FinishDirectroy(1)
EndIf
Endif
Wend
FinishDirectroy(1)
EndIf