Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

ältere Dateien im ordner löschen

Betrifft: ältere Dateien im ordner löschen von: Spenski
Geschrieben am: 31.07.2014 20:24:28

passend zum vorigem thread suche ich einen code der in einem ordner

M:\_PST\BACKUP

alle dateien löscht , die älter als 14 tage sind

.........

oder :

die älteste datei im ordner gelöscht wird.

ich habe gegoogled und auch einige codes gefunden , aber als anfänger verwirrte mich die menge an verschiedener codes sehr. benötige da was sicheres , da es fpr die arbeit ist

gruss
christian

  

Betrifft: AW: ältere Dateien im ordner löschen von: Hajo_Zi
Geschrieben am: 01.08.2014 10:28:36

Hallo Christian,

Option Explicit

' Dieser Source stammt von http://www.activevb.de

' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.
' Der VB Code ist aus dem Beitrag  _
http://www.activevb.de/tipps/vb6tipps/tipp0492.html

' Verweis: Microsoft Scripting Runtime
' Originalcode
'Dim i As Long
'With Application.FileSearch
'    .NewSearch
'    .LookIn = ActiveWorkbook.Path   'Suchverzeichnis
'    .SearchSubFolders = False       'True wäre mit Unterverzeichnissen
'    .Filename = "*.csv"             'Dateien die mit .csv änden
'    .Execute                        'suche ausführen
'    For i = 1 To .FoundFiles.Count
'        Application.StatusBar = "-->>   Einlesen der Datei:  " & i & " / " & .FoundFiles.Count  _
& "  <<--"
'        Call importieren_und_verschieben(.FoundFiles(i))
'    Next i
'End With
'
Sub Start()
    SearchInFolder ThisWorkbook.Path
End Sub

Private Sub SearchInFolder(ByVal Folderspec As String)  ' auslesen aufrufen mit Ordnername
    Dim StTyp As String                                 ' Dateityp
    Dim FSO As New FileSystemObject
    Dim SearchFolder As Folder
    Dim FD As Folder, FI As File
    Dim EachFil As Files, EachFold As Folders
    Dim LoI As Long                                     ' Laufvariable zum schreiben der Ordner
    StTyp = "xlsm"
    Set SearchFolder = FSO.GetFolder(Folderspec)
    Set EachFil = SearchFolder.Files            ' Dateien in der jeweiligen Root
'    MsgBox EachFil.Count                        ' Anzahl Dateien
'   Dateien auslesen
    For Each FI In EachFil                      ' Schleife über alle Dateien
'       Dateityp feststellen
        If UCase(Right(FI.Name, Len(FI.Name) - InStrRev(FI.Name, "."))) = UCase(StTyp) Then
            If FileDateTime(FI) < Now - 14 Then
                FI.Delete
            End If
        End If
    Next FI
    Set EachFil = Nothing
    Set EachFold = Nothing
    Set FSO = Nothing
End Sub
GrußformelHomepage


  

Betrifft: AW: ältere Dateien im ordner löschen von: Spenski
Geschrieben am: 01.08.2014 16:35:07

Danke


 

Beiträge aus den Excel-Beispielen zum Thema "ältere Dateien im ordner löschen"