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
Partager