Kill Funktion
16.08.2020 20:11:15
Mani
habe eine kleine Frage .
Warum funktioniert in folgendem Code die Kill Funktion nicht und ich kriege eine Fehlermeldung ? _
Sub Aktuell()
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Dateiname_neu As String
Dim Zeit As Date
Dim wb As Workbook
Application.ScreenUpdating = False
ThisWorkbook.Worksheets(1).Range("B1").Value = Format(Now, "hh:nn:ss")
strVerzeichnis = "D:\Auto Abfrage\"
StrTyp = "*.xlsx"
Dateiname = Dir(strVerzeichnis & StrTyp)
Dateiname_neu = Dateiname
Zeit = FileDateTime(strVerzeichnis & Dateiname)
Do While Dateiname ""
If Zeit