Discussion :

[bailamos]

salut tous le monde
avec ce code je veux voire tous les fichier htm dans le dossier et dous dossier d'un rep c:\dossier je n'est pas pi aller plus loin que ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ParcoursRep("E:\vbs")
 
Sub ParcoursRep(oFolder As Scripting.Folder)
Dim oFile As File
Dim oSousRep As Folder
 
For Each oFile In oFolder.Files
msgbox oFile
Next
 
For Each oSousRep In oFolder.SubFolders
ParcoursRep oSousRep
Next
 
End Sub

[bailamos]

voilla j'ai trouver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim fso 'As FileSystemObject
Dim i 'As Integer
Dim ficListe
 
 
Dim FolderInit 'As Scripting.Folder
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set FolderInit = fso.GetFolder("E:\vbs")
re FolderInit
 
 
Sub re(SousFolder) 'As Folder)
Dim NewFolder 'As Scripting.Folder
Dim f 'As File
 
 
For Each f In SousFolder.Files
'If (f.DateLastModified >= Date-1) And Right(f.Name, 3) = "htm" Then
  msgbox f.Path 
'End If
Next
 
 
For Each NewFolder In SousFolder.SubFolders
 re NewFolder
Next
 
 
End Sub

[bailamos]

salut tous le monde
j'essay d'ecrire tous les fichier dans un fichier text list mais il ya une erreur merci de m'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub re(SousFolder) 'As Folder)
Dim NewFolder 'As Scripting.Folder
Dim f 'As File
Dim fso
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ftxt =  FSO.createTextFile("list.txt",true)
 
For Each f In SousFolder.Files
If Right(f.Name, 3) = "htm" Then Ftxt.writeline f.Path
Next
 
For Each NewFolder In SousFolder.SubFolders
 re NewFolder
Next 
End Sub

[SfJ5Rpw8]

et l'erreur c'est quoi ? qu'elle ligne ?

[ced600]

Je te déconseille la récursivité.

C'est puissant mais très vite piégeant. Il faut maitriser totalement son code pour s'en servir.

Sinon risque de boucle infini.

Je ne suis pas sur que le code suivant ne plante pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each NewFolder In SousFolder.SubFolders
 re NewFolder
Next

Quand il n'y a plus de sous répertoire je pense que cela plante.
Mais le dans un if qui test la présence de sous repertoire.

[SfJ5Rpw8]

à oui ... j'ai répondu un peu vite .. hier..

faudrai sortir de cette fonction récursive la création de l'objet FSO et l'ouverture de ton fichier texte ... une fois suffit

[ced600]

à oui ... j'ai répondu un peu vite .. hier..

Je te comprends à force de voir passer des messages qui disent :
"Au secours j'ai un problème" sans rien préciser de plus, on a tendance à abreger la réponse.

Moi je viens d'arriver au boulot et j'ai pas le courage de commencer

Bon un café et hop je m'y met

[bailamos]

l'erreur et dans cette ligne le fichier et vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Right(f.Name, 3) = "htm" Then Ftxt.writeline f.Path

[SfJ5Rpw8]

et l'erreur c'est quoi ?

[bailamos]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
enr f.path
 
sub enr(x)
f.WriteLine(x)
end sub