Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Datei löschen

Forumthread: Excel Datei löschen

Excel Datei löschen
26.11.2015 22:19:12
steffi-gott
Hi
beim öffne meiner Excel Tabelle lasse ich mir alle 60min. ein Backup in einem separaten Ordner erstellen,
irgendwann wird aber dieser Ordner "überquirlen"
Frage:
wie lassen sich nur die Dateien (.xlsm) die älter sind als 1 Tag von Heute, (Systemzeit), löschen,
die aktuellen von heute müssen aber immer erhalten bleiben,
ich habe zwar eine Code gefunden und auch getestet, aber da werden eben alle Datei gelöscht

Sub KillEmAll()
'löscht alle .xls im Verzeichnis
Const strVerz As String = "D:\... \backup\" 'datei muß angepasst werden
Kill strVerz & "*.xlsm"
End Sub
kann mir hier jemand weiter helfen
vielen Danke und BG

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Datei löschen
26.11.2015 22:42:56
Sepp
Hallo Steffi,
Sub deleteFiles()
Dim objFSO As Object, objFile As Object
Dim strPath As String

strPath = "E:\Forum" 'Verzeichnis - Anpassen!

Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each objFile In objFSO.getFolder(strPath).Files
  If objFile.Name Like "*.xls*" Then
    If Clng(Fix(objFile.DateCreated)) < Clng(Date) Then
      objFSO.DeleteFile objFile.Path
    End If
  End If
Next

Set objFSO = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Excel Datei löschen
01.12.2015 20:06:22
steffi-gott
Hallo Sepp
sorry für die verspätete Rückmeldung,
danke für deinen Code,
funktioniert alles bestens
BG
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige