Supprimer les fichiers > 0k + Csv seulement
Bonjour !
J'ai trouvé ce code sur le web, qui me permettrait de supprimer tous les fichiers excédant un certain poid.
Comment est-ce que je peux modifier le code afin de ne supprimer que les CSV ? J'ai fait des recherches sur Google mais sans résultat qui peut m'aider...
Pouvez-vous m'aider ?
MERCI !
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Dim strPath
Dim lngSize
Dim fso
Dim fold
Dim files
Dim file
lngSize = 0' 10000 = 100k
strPath = "U:\TEST\" 'The folder you want to start in
Set fso = CreateObject("scripting.filesystemobject")
Set fold = fso.GetFolder(strPath)
Set files = fold.files
For Each file In files
If file.Size >= lngSize Then file.Delete True
Next |
