Lister les fichiers d'1 rép. dans un fichier
Bonjours,
J'ai essayer de mixer 2 procédure de la FAQ VBS, pour écrire la liste des fichiers d'un répertoire (sans autre sous-rép.) dans un fichier.
Les 2 procédures de la FAQ :
- Lister les fichier d'un répertoire à l'écran,
- Écrire dans un fichier.
Individuellement ça fonctionnaient.
J'ai zapper la constante venait avec une boucle FOR, pour la
changer par un While.
Est-ce que le While est correctement monté ?
Je n'était pas arrivé à écrire dans le fichier avec un FOR
Le problème vient >>> oF1.Name << dans le While.
À part le While et les Char(saut de ligne) que je vient de mettre en créant le sujet parce qu'il seront nécessaires.
___________________________________________________________
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| 'Const ForWriting = 5 '?Eof.folder? --> (Loop-until file.exist) or (While file.exist-wend)
Dim fso, f
Dim stRep 'Nom du répertoire à parcourir
Dim oFSO,oFl
'On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\Document and Settings\ADM\Bureau\ecr.txt", ForWriting,true)
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\Document and Settings\ADM\Local Settings\Application Data" 'Lister les fichiers
If oFSO.FolderExists(stRep) Then
Do While each oFl in oFSO.GetFolder(stRep).Files 'oFSO.FilesExists(stRep)?
f.write oFl.Name '& char(13) & char(11) écrire fic. et ?saut de ligne ?
Loop
End If |
merci.
