nb de rep ??? boucle ??? recherche rep dans rep ??? besoin coup de pouce !!!

Question

j'aimerai creer un variable de type integer qui contient le nombre de repertoire d'un chemin que je saisi dans un text box comment faire ??

je dois utiliser le filesystemobjet mais je n'y arrive pas...

une fois que j'ai cette variable j'aimerai faire une boucle de type

for i=0 a nombrederepertoire

et appliquer un traitement pour chaque repertoire 
or comment faire reconnaitre le ieme repertoire 

en fait j'aimerai qu'il fasse comme s'il ouvrait chaque repertoire c a dire chaque repertoire i a la recherche d'un repertoire precis dont le nom est dans un text box dans ce repertoire i que j'ai ...

next i 

je c pas si c bien clair... 

merci a vous tous
a+

cs_Jack · Answer

Pas clair tout ça 
Pour lister les répertoires contenus dans un répertoire, il te suffit de faire une boucle qui les compte :
Dim Temp As String, Cptr As Integer
Temp = Dir("*.*", vbDirectory)
Cptr = 0
Do While Temp <> ""
   Cptr = Cptr + 1
   Temp = Dir
Loop

Sinon, pour savoir à quel niveau de sous-sous-sous-répertoire tu es, il te suffit de compter les "", exemple
Dim Temp As String, Cptr As Integer
Temp = "C:\Windows\System32\BlaBla\EtReBla"
Cptr = Len(Temp)
Temp = Replace(Temp, "", "")
Cptr = Len(Temp) - Cptr

Vala
Jack

cs_CanisLupus · Answer

Salut, pas très clair c vrai mais avec FileSystemObject c simple :

' Dans le menu Projet/References ajouter "Microsoft Scriting Runtime"
Sub Form_Load()
Dim fso As FileSystemObject
Dim fd As Folder
Dim sf As Folder

  'Créer le FileSystemObject
  Set fso = CreateObject("Scripting.FileSystemObject")
  
  If fso.FolderExists(Text1) Then ' teste si ton rep existe
    Set fd = fso.GetFolder(Text1) ' set le chemin du rep
' si tu veux le nombre de rep 
' n=fd.subfolders.count
' pour les fichiers 
' n=fd.files.count
' sinon, c + simple avec :
    For Each sf In fd.SubFolders ' pour chaque sous rep ...
      'ton traitement sachant que le nom du répertoire est
      ' obtenu avec sf.name
    Next
  End If
  
End Sub

Cordialement

CanisLupus

cs_CanisLupus · Answer

excuses,

c pas "Microsoft Scriting Runtime"
mais
"Microsoft Scripting Runtime"

Cordialement

CanisLupus

gnosis35 · Answer

merci a vous deux de m'avoir repondu je vais essayer ce que vous m'avez dit merci

Nb de rep ??? boucle ??? recherche rep dans rep ??? besoin coup de pouce !!!

4 réponses

Discussions similaires