Bonjour,

Je voudrais supprimer tous les fichiers se trouvant dans un répertoire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
StrPath="C:\Exports"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(StrPath & "\FichesTemp") Then
    Set Files = FSO.GetFolder(StrPath & "\FichesTemp").Files
    For Each File In Files
        Kill File
    Next File
end if
Ce la fonctionne bien sauf si l'un des fichiers est ouvert ?
Comment faire ?

Merci bien.