Thumbs.db finden und löschen
23.12.2020 15:19:07
xtian
auf unserem Netzwerklaufwerk (Zugriff hat die gesamte Familie) tauchen in letzter Zeit immer
öfters Thumbs.db Dateien auf. Diese Thumbs-Dateien lassen sich oft nicht oder erst nach
einigen Tagen löschen.
Mit meinen noch geringen VBA Kenntnisse habe ich jetzt versucht ein Makro zu schreiben,
welches die Thumbs Dateien löschen soll. Hier wird zunächst der Ordner ausgewählt und
dann kann die Thumbs Datei gelöscht werden. Leider kommt eine Fehlermeldung bei Kill..
und das löschen funktioniert nicht.
Option Explicit
Public GesamtPfad As String
Public OrdnerPfad As String
Public DateiArt As String
Public DateiName As String
Private Sub CommandButton1_Click()
DateiArt = "Datenbank-Dateien(*.db), *.db"
ChDrive "X"
ChDir "X:\Familie"
GesamtPfad = Application.GetOpenFilename(DateiArt)
OrdnerPfad = Left(GesamtPfad, InStrRev(GesamtPfad, "\") - 1) & "\"
DateiName = Mid(GesamtPfad, InStrRev(GesamtPfad, "\") + 1)
Label1.Caption = OrdnerPfad
Label2.Caption = DateiName
End Sub
Private Sub CommandButton2_Click()
Kill GesamtPfad
End Sub
Viele Grüße
Christian