Excel Datei löschen

Forumthread: Excel Datei löschen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Excel Datei löschen

Excel Datei löschen

26.11.2015 23: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

AW: Excel Datei löschen

26.11.2015 23:42:56

Sepp
AW: Excel Datei löschen

01.12.2015 21:06:22

steffi-gott

AW: Excel Datei löschen

26.11.2015 23: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