Discussion :

[amerex]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Cmanix]

Bonjour, essaye avec ceci:

If UCase(file.Extension) = "CSV" Then file.Delete