Discussion :

[Phifi]

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

[ced600]

Ceci devrait t'aider

[Phifi]

Ah oui, très intéressant l'utilisation des *. Je ne savais pas que c'était possible avec cette méthode. Merci pour le lien.

Mon problème est résolu cependant, un des fichiers était verrouillé par le système, tout simplement.