Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 079 fois - Téléchargée 44 fois
Public Function ScanDrive(Root As String) 'Il faut au prealable declarer quelques variables globales : 'AllDirList() as string 'NbDirFind as integer 'Je crois que c tout pour les variables globales, mais vérifiez. 'Pour tester la présence d'un fichier, il suffit de parcourir le tableau et d'utiliser la fonction 'Dir avec comme arguments AllDirList(variable incrementé) et le nom du fichier. 'En plus, vous pouvez utiliser les * et ? Dim FileRead As String Dim RootPath As String RootPath = Root + "\" FileRead = Dir(RootPath, vbDirectory) Do While FileRead <> "" If FileRead <> "." And FileRead <> ".." Then If IsOnDirList(RootPath + FileRead) = False Then If (GetAttr(RootPath + FileRead) And vbDirectory) = vbDirectory Then NbDirFind = NbDirFind + 1 ReDim Preserve AllDirList(NbDirFind) AllDirList(NbDirFind - 1) = RootPath + FileRead ' only for test : Print #Canal, RootPath + FileRead ScanDrive (RootPath + FileRead) FileRead = Dir(RootPath, vbDirectory) End If End If End If FileRead = Dir Loop end function
Commentaires
Et je n'ai pas utilisé la fonction 'DIR' dans mon soirce pour des problèmes de performance, c'est trop long.....
Sinon c'est quoi ton problème exactement car je n'arrive pas à le reproduire?
A+
Et je n'ai pas utilisé la fonction 'DIR' dans mon soirce pour des problèmes de performance, c'est trop long.....
Sinon c'est quoi ton problème exactement car je n'arrive pas à le reproduire?
A+
http://www.vbfrance.com/codes/ROUTINE-DIR-RECURSIVE-OBTENIR-LISTE-TOUS-FICHIERS-DANS_53805.aspx
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.