Suppression fichiers Excel sous conditions

Staple1600 à dit:

Bonjour à tous, sieur kjin mes salutations du matin

Pour une méthode moins "tarantinoiesque", voici un exemple qui envoie le fichier à la poubelle

VB:

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
sFrom As String
sTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
(ByRef lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FO_DELETE = &H3
Private Const FOF_SILENT = &H4
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_ALLOWUNDO = &H40

Sub DeleteFileUsingAPI()
Dim oFilAPI As SHFILEOPSTRUCT
Dim lReturn As Long
Dim sFile As String ' File that needs to be deleted
sFile = "C:\ Temp\test.xls"

With oFilAPI
.wFunc = FO_DELETE
.sFrom = sFile
.sTo = vbNullChar
.fFlags = FOF_SILENT + FOF_NOCONFIRMATION + FOF_ALLOWUNDO
End With

' Use WinAPI User Defined Function
lReturn = SHFileOperation(oFilAPI)
Err_Delete:
MsgBox(Err.Number & " - " & Err.Description)
Err.Clear()
Resume Next
End Sub
'auteur : Devakottai PaneerSelvam

Cliquez pour agrandir...

kjin à dit:

Bonsoir,
Attention : supprime tous les fichiers du répertoire spécifié dont la date de modif est inférieure à J-1; c'est sans retour

Code:

Sub d()
Dim fs, fl, f
pDossier = "W:\A Essais\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set fl = fs.getfolder(pDossier).Files
    For Each f In fl
        If f.DateLastModified < VBA.Date - 1 Then Kill f
    Next
End Sub

A+
kjin

Cliquez pour agrandir...