Bonjour toutes et tous,
Je liste fichiers et répertoires récursivement, et quand un répertoire ou un fichier est inaccessible, le script s'arrête sur ce dossier malgré un On Error resume next.
Que faire pour passer aux dossiers ou fichiers suivants ?
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
On Error resume next
Dim FSO , objNewFile,oF
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objNewFile = FSO.CreateTextFile ("C:\..\filelist.txt", True, True)'Unicode UTF-16
Set oF = FSO.GetFolder("C:\Users\..\Documents\")
 
WriteFilesAndFolders oF
 
Public Function WriteFilesAndFolders(Folder)
 
For Each Subfolder in Folder.SubFolders
objNewFile.WriteLine( SubFolder.Path )
WriteFilesAndFolders Subfolder
Next
For Each file in Folder.Files
objNewFile.WriteLine( file.Path )
Next
End Function