[vbs] fichier d'un dossier

Version imprimable

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:

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

voilla j'ai trouver

Code:

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

ecrire dans un fichier txt

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:

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

16/12/2007, 23h31
SfJ5Rpw8

et l'erreur c'est quoi ? qu'elle ligne ?
17/12/2007, 09h31
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:

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.
17/12/2007, 09h34
SfJ5Rpw8

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

faudrai sortir de cette fonction récursive la création de l'objet FSO et l'ouverture de ton fichier texte ... une fois suffit ;)
17/12/2007, 09h53
ced600

Citation:

à 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 :mrgreen:

Bon un café et hop je m'y met :D
17/12/2007, 14h05
bailamos

l'erreur et dans cette ligne le fichier et vide

Code:

If Right(f.Name, 3) = "htm" Then Ftxt.writeline f.Path
17/12/2007, 14h11
SfJ5Rpw8

Citation:

Envoyé par bbil

et l'erreur c'est quoi ?

Code:

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