Discussion :

[kesimon63]

Bonjour à tous !
J'ai un petit problème qui peut paraitre tout bête mais m'embête bien.

Je souhaite supprimer tous les fichiers d'un dossier sauf les classeurs excel en sachant qu'il peut y avoir des fichiers en lecture seule.

Auriez-vous une solution ? Merci d'avance pour vos réponses.

[jfontaine]

Bonjour,

Le code ci dessous supprime les fichiers ayant une extension différentes de xls

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
16
17
18
19
 
Dim Fso As Object
Dim FsoRepertoire As Object
Dim FsoFichier As Object
 
Dim str() As String
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = Fso.GetFolder("C:\Fichiers")
 
'Boucle sur fichiers du repertoire
iCopie = 2
For Each FsoFichier In FsoRepertoire.Files
    str = Split(FsoFichier.Name, ".")
    If str(UBound(str)) <> "xls" Then
        FsoFichier.Delete
    End If
 
Next

[kesimon63]

Super merci bcp !
Ca fonctionne nickel !

Bonne journée à tous !