Bonjour,

je ne suis pas très familier avec VBS, j'aimerais seulement lister un répertoire et supprimer tous les fichiers contenus (mais pas supprimer le répertoire).
J'ai essayé d'adapter ce que j'ai trouvé dans la FAQ, mais je me heurte à une erreur : "Permission refusée" (ce qui me semble logique)
ça doit être tout con pourtant... :/

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
Dim stRep 'Nom du répertoire à parcourir
Dim oFSO, oFl, f
'
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\temp"
If oFSO.FolderExists(stRep) Then
    For Each oFl In oFSO.GetFolder(stRep).Files
        oFSO.DeleteFile stRep & "\" & oFl.Name, True
        ' j'ai essayé aussi :
        'Set f = oFSO.GetFile(oFl)
        'f.Delete True
        '
        'Wscript.Echo oFl.Name
    Next
End If