Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige