Macro avec fonction Kill

[degap05]

Bonjour le forum,

La macro ci-dessous, créée par le forum, maintient un nombre choisi de fichier dans un dossier.

Pensez-vous qu'il soit possible de la faire fonctionner avec un autre type de fichier que des fichiers Excel (en l'occurrence des fichiers .dat) ? J'ai essayé en annulant la ligne de recherche sur un type de fichier mais cela ne fonctionne pas.

Sub EffaceDat()
With Application.FileSearch
.LookIn = "C:\NtDisp\Portable\Sauvegarde\"
'.FileType = msoFileTypeExcelWorkbooks
.Filename = "DEM*"
.Execute
If .FoundFiles.Count = 20 Then
Kill .FoundFiles(1)
End If
End With
End Sub

Merci de votre aide.
A+

 

[Pierrot93]

Re : Macro avec fonction Kill

Bonjour Degap

essaye en modifiant comme suit :

sauvegarde le dossier auparavant.... si ce n'est déjà une sauvegarde

With Application.FileSearch
    .LookIn = "C:\NtDisp\Portable\Sauvegarde\"
    .Filename = "*.dat"
    .Execute
    If .FoundFiles.Count = 20 Then
        Kill .FoundFiles(1)
    End If
End With

bon après midi
@+

 

[degap05]

Re : Macro avec fonction Kill

Bonjour Pierrot93,

Fonctionnement parfait.

Merci pour ton aide.