Discussion :

[mido70]

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 :

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
'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.

[SfJ5Rpw8]

j'ai jamais vu de Do While Each .. c'est FOR Each..

n'utilise qu'un seul objet FileSystem , ( toi tu en as 2 oFSO et fso) cela simplifiera ton code , puis reviens nous voir avec le nouveau...