Parcourir les dossiersRésolu

Question

Bonjour. J'aimerais savoir si c'est possible d'attribuer à des variables as string les Path de chacun des fichiers ET sous-dossiers se touvant dans le meme path (meme dossier) que mon programme.

Exemple : 

App.path = "C:\program files"

Je veux connaitre  TOUT ce qu'il y a dans ce dossier qu'est Program files (a titre d'exemple seulement)

et éventuellement pouvoir attribuer a des variable, chacun des path des fichiers et sous-dossiers qui se trouve dans ce dossier mais aussi pouvoir reconnaitre s'il s'agit d'un dossier ou d'un fichier

Est-ce Possible ? 

Autour de moi vont et viennent ces machines à tuer les rêves qui ressemblent étrangement à des fillettes qui, allègrement, annihilent gratuitement de petites bulles de savon qui, dans l'air ambiant, flottent paisiblement. Je ne peux supporter leur regard plus longtemps. Je dois, derrière ce qu'ils voient, m?évader, me dissiper, me dissimuler.

Perdu quelque part,
parmi les regards,
poignards
de ceux qui voraces,
rapaces,
chassent leur place

cs_bultez · Accepted Answer

bonjour,
un ch'tit exemple ?

Dim act As String, l As String
act = Dir(VB.App.Path & "\*.*", vbArchive + vbDirectory + _
                                 vbHidden + vbNormal + _
                                 vbReadOnly + vbSystem)
While Len(act) > 0
    Select Case (GetAttr(VB.App.Path & "" & act) And vbDirectory)
        Case Is = vbDirectory
            l = "Répertoire"
        Case Else
            l = "Fichier"
    End Select
    MsgBox l & " : " & act
    act = Dir
Wend

attention à dir qui n'est pas récursif,
c'est à dire que si on veut regarder
le contenu des sous-répertoires, il
faut le stocker dans un tableau et
les réexploiter en fin des fihciers.
( je ne sais pas si je suis très clair ... )
Cordialement    Bul. [Site] [[mailto:marcelBultez@Tiscali.fr Mail]]

cs_Jack · Answer

Salut
-1- App.Path est en lecture seule
-2- Un petit coup d'oeil à cette source

Vala
Jack
 NB : Je ne répondrai pas aux messages privés 

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

Radiohead4ever · Answer

Merci beaucoup bultez. Ca m'a aidé mais il y a quelques éléments de ton code que je ne connais pas :
Len, vbArchive, vbDirectory, vbHidden, vbNormal,
vbReadOnly, vbSystem.

Et puis j'ai un peu peur du vbReadOnly car je voudrais pouvoir creer un dossier s'il n'existe pas déjà.

Enfin, tu a tout de même bien répondu à ma question, Merci

Autour de moi vont et viennent ces machines à tuer les rêves qui ressemblent étrangement à des fillettes qui, allègrement, annihilent gratuitement de petites bulles de savon qui, dans l'air ambiant, flottent paisiblement. Je ne peux supporter leur regard plus longtemps. Je dois, derrière ce qu'ils voient, m?évader, me dissiper, me dissimuler.

Perdu quelque part,
parmi les regards,
poignards
de ceux qui voraces,
rapaces,
chassent leur place

cs_bultez · Answer

>>Len : taille, nombre de caractères
ici dir renvoie une chaîne vide en fin des fichiers
sous/répertoires d'un répertoire
>> vbArchive, vbDirectory, vbHidden, vbNormal,
>> vbReadOnly, vbSystem.
on trouve toutes les explications dans l'aide
mais VbDirectory : on prend en compte les
sous/répertoires, vbReadOnly : les fichiers
déclarés en lecture seulement.
bien entendu, on ne met dans ce paramètre
que les valeurs voulues ( vbNormal seul par ex ).
>>j'ai un peu peur du vbReadOnly
ce n'est qu'un attribut du fichier ou du répertoire
tel qu'il a été créé ou tel qu'on le créera.
Cordialement    Bul. [Site] [[mailto:marcelBultez@Tiscali.fr Mail]]

Radiohead4ever · Answer

D'acord, merci beacoup !
RadioHead4Ever

Parcourir les dossiers

5 réponses

Discussions similaires