un équivalent du 'dir /s" de dos (VBA)Résolu

Question

Salut,


Je crois que tout est dit dans le sujet.
Je voudrais r&#233;cuperer une liste de fichiers d'un emplacement en listant les repertoires et sous les repertoires ainsi que la liste des repertoires.

Actuellement je le fait sous dos et redirige la sortie vers un fichier texte mais &#231;a me met des caract&#232;res sp&#233;ciaux &#224; la place des "&#233;", "&#231;",... et &#231;a me fait sh*** parce que j'aimerais faire un filelen() dessus via VBA.

A+

crenaud76 · Accepted Answer

La boucle ...
    For i = 1 To FCount
        Debug.Print F(i)
    Next

... peut être supprimé .. je l'avais juste mise à des fin de vérification du bon fonctionnement

jpleroisse · Answer

Bonjour,
Essaie ceci, cel&#224; peut peut-&#234;tre t'aider.Place unCommandButton et une Listbox sur ton UserForm.

Private Sub CommandButton1_Click()
Dim MyName
MyName = Dir("C:\Mes documents\*.txt*", vbNormal)
    While MyName <> ""
     ListBox1.AddItem MyName
        MyName = Dir
Wend
End Sub


jpleroisse

Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

maciew · Answer

euh.....
"Essaie ceci, cel&#224; peut peut-&#234;tre t'aider.Place unCommandButton et une Listbox sur ton UserForm"
je suis d&#233;butant et je t'avoue que je ne comprens pas tellement cette phrase.

quand tu &#233;cris : 
"MyName = Dir("C:\Mes documents\*.txt*", vbNormal)"

ce que je voudrais en fait c'est lister TOUT les fichiers des r&#233;pertoires et sous r&#233;pertoires de "C:\Mes documents" par exemple.
Comme un "dir /s c:\mes documents"

Je pense que je vais continuer avec ce bon vieux dos....

A+

cs_rt15 · Answer

Je connais rien à VBA.

Sous VB6, même problème: le dir ne liste que ce qu'il y a à la racine du répertoire.

Sous VB6, il faut parcourir l'arboresence et faire un dir dans chaque répertoire. 

A chaque arrivée dans un répertoire, tu fais un Dir sur les dossiers. Tu stockes tous les chemin de ces dossier dans un tableau (redimenssionable de préférence).

Tu liste les fichiers qui t'intéresse.

Tu passes au répertoire suivant dans ton tableau.

L'arboresence est parcouru quand tu est arrivé au dernier chemin de ton tableau qui s'agrandit en permanence.

Bonne chance si tu es débutant !

(Redim preserve sous VB6, commmande utile pour les tableaux)

crenaud76 · Answer

Voici un bout de code à mettre dans un module standard ... Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long Const FILE_ATTRIBUTE_ARCHIVE = &H20 Const FILE_ATTRIBUTE_DIRECTORY = &H10 Const FILE_ATTRIBUTE_HIDDEN = &H2 Const FILE_ATTRIBUTE_NORMAL = &H80 Const FILE_ATTRIBUTE_READONLY = &H1 Const FILE_ATTRIBUTE_SYSTEM = &H4 Const FILE_ATTRIBUTE_TEMPORARY = &H100 Private F() As String, FCount As Long Private Sub RecurseDir(path As String) Dim i As Long Erase F FCount = 0 ListDir path For i = 1 To FCount Debug.Print F(i) Next End Sub Private Sub ListDir(path As String) Dim D() As String Dim tmp As String Dim DCount As Long Dim i As Long DCount = 0 tmp = Dir(path, vbDirectory) While tmp <> "" If tmp <> "." And tmp <> ".." Then If GetFileAttributes(path & tmp) And FILE_ATTRIBUTE_DIRECTORY Then DCount = DCount + 1 ReDim Preserve D(DCount) D(DCount) = path & tmp & "" Else FCount = FCount + 1 ReDim Preserve F(FCount) F(FCount) = path & tmp End If End If tmp = Dir Wend For i = 1 To DCount ListDir (D(i)) Next End Sub Appelle la fonction RecurseDir() en lui donnant en argument le chemin du répertoire à lister et tu obtiens la liste des fichiers dans le tableau F() Christophe

maciew · Answer

magnifique
j'ai juste &#224; rajout&#233; un truc du genre

Sub yo()

RecurseDir ("d:\prog")
i = 1
For i = 1 To UBound(F)
Range("A" & i) = F(i - 1)
Next i


End Sub

merci beaucoup

crenaud76 · Answer

DE NADA !

Christophe

Un équivalent du 'dir /s" de dos (VBA)

7 réponses

Discussions similaires