Office: (Office 2003) Datei zum löschen wird nicht gefunden

User · 7. Januar 2021

von daolix

tippe
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

call setattr(!DTA_Dateiname_komplett, getattr(!DTA_Dateiname_komplett) and not vbhidden)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder
Code:

setattr !DTA_Dateiname_komplett, getattr(!DTA_Dateiname_komplett) and not vbhidden
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei beiden bekomme ich angezeigt:

"Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument"

User · 7. Januar 2021

von daolix

Na dann überspring die doch

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

if not right$(!DTA_Dateiname_komplett, 10)= "\Thumbs.db" then Kill ....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann bekomm ich folgenden Fehler:

Laufzeitfehler 53: Datei nicht gefunden.

Allerdings jetzt an anderer Stelle:

Code:

Sub DTA_Dateien_bearbeiten()

Dim Datensatz As String * 128
Dim Datenpfad As String
Dim Dateiname As String
Dim DTA_Zielpfad As String
Dim DTA_Art As String
Dim DTA_AG_BLZ As String
Dim DTA_AG_Name As String
Dim DTA_Erst_Datum As String
Dim DTA_AG_Konto As String
Dim DTA_Anzahl As String
Dim DTA_Summe_BLZ As String
Dim DTA_Summe_Konten As String
Dim DTA_Summe_Betrag As String
Dim Anzahl_Dateien As Integer
Dim Temp

ExecCmd "H:\MC3\Transfer\Prog\Jahres-Directory_erstellen.cmd"

DTA_Zielpfad = DLookup("Inhalt", "Stammdaten", "Art='DTA_Zielpfad'")

' alle vorhandenen DTA- und ZZV-Dateien ermitteln

Set DB = CurrentDb()
Set RS_in = DB.OpenRecordset("DTA_Suchpfade", DB_OPEN_DYNASET)
With RS_in
Do While Not .EOF
Dateien_suchen !DTA_Suchpfad, !DTA_Präfix
.MoveNext
Loop
.Close
End With

' gefundene Dateien abarbeiten

Set DB = CurrentDb()
Set RS_in = DB.OpenRecordset("SELECT * FROM DTA_Dateien WHERE DTA_gedruckt_am Is Null", DB_OPEN_DYNASET)

On Error GoTo nächsten_Satz_lesen

With RS_in

Do While Not .EOF

DTA_Art = ""
DTA_AG_BLZ = ""
DTA_AG_Name = ""
DTA_Erst_Datum = ""
DTA_AG_Konto = ""
DTA_Anzahl = ""
DTA_Summe_Konten = ""
DTA_Summe_BLZ = ""
DTA_Summe_Betrag = ""

' Datei in Zielverzeichnis kopieren
If !DTA_ZZV Then
' Sonderzeichen bei ZZV-Dateien ändern
FileCopy !DTA_Dateiname_komplett, "H:\MC3\Transfer\Prog\quelle.zzv"
ExecCmd "H:\MC3\Transfer\Prog\ZZV_ZeichenUmwandeln.cmd"
FileCopy "H:\MC3\Transfer\Prog\quelle.zzv", DTA_Zielpfad & !DTA_Dateiname_neu
Kill "H:\MC3\Transfer\Prog\quelle.zzv"
Else
FileCopy !DTA_Dateiname_komplett, DTA_Zielpfad & !DTA_Dateiname_neu
End If

' Datei in Save-Verzeichnis sichern
For I = 1 To 999
Temp = DLookup("[Inhalt]", "[Stammdaten]", "[Art]='DTA_Save'") & _
Format(Date, "yyyy") & "\" & _
!DTA_Dateiname_neu & _
"_" & Format(I, "000") & ".OLD"
If Not FileExist(Temp) Then Exit For
Next
FileCopy !DTA_Dateiname_komplett, Temp

' Informationen für Begleitzettel aus Dateien auslesen und in Tabelle ergänzen
Open !DTA_Dateiname_komplett For Binary Access Read As #1
Do While Not EOF(1)
Get #1, , Datensatz
If !DTA_ZZV Then
Select Case Mid(Datensatz, 1, 2)
Case "A0"
DTA_Art = "ZZV"
DTA_AG_BLZ = Mid(Datensatz, 3, 8)
DTA_AG_Name = Mid(Datensatz, 20, 27)
DTA_Erst_Datum = ""
DTA_AG_Konto = Mid(Datensatz, 11, 9)
Case "E0"
DTA_Anzahl = Mid(Datensatz, 2, 7)
DTA_Summe_Konten = 0
DTA_Summe_BLZ = 0
DTA_Summe_Betrag = Mid(Datensatz, 9, 13)
End Select
Else
Select Case Mid(Datensatz, 1, 5)
Case "0128A"
DTA_Art = Mid(Datensatz, 6, 1)
DTA_AG_BLZ = Mid(Datensatz, 8, 8)
DTA_AG_Name = Mid(Datensatz, 24, 27)
DTA_Erst_Datum = Mid(Datensatz, 51, 6)
DTA_AG_Konto = Mid(Datensatz, 61, 10)
Case "0128E"
DTA_Anzahl = Mid(Datensatz, 11, 7)
DTA_Summe_Konten = Mid(Datensatz, 31, 17)
DTA_Summe_BLZ = Mid(Datensatz, 48, 17)
DTA_Summe_Betrag = Mid(Datensatz, 65, 13)
End Select
End If
Loop
Close #1

.Edit
!DTA_Art = DTA_Art
!DTA_AG_BLZ = DTA_AG_BLZ
!DTA_AG_Name = DTA_AG_Name
!DTA_Erst_Datum = DTA_Erst_Datum
!DTA_AG_Konto = DTA_AG_Konto
!DTA_Anzahl = DTA_Anzahl
!DTA_Summe_BLZ = DTA_Summe_BLZ
!DTA_Summe_Konten = DTA_Summe_Konten
!DTA_Summe_Betrag = DTA_Summe_Betrag
!DTA_erstellt_am = DateiDatumAuslesen(!DTA_Dateiname_komplett, 1)
.Update

'Zum Anzeigen im Direktbereich, was in DTA_Dateiname_komplett enthalten ist.
'Zum Einsetzen den Code "Kill... " auskommentieren und die folgende Zeile aktivieren:
'Debug.Print !DTA_Dateiname_komplett

'Versuch Forum!
'SetAttr !DTA_Dateiname_komplett, GetAttr(!DTA_Dateiname_komplett) And Not vbHidden

' Datei im Ursprungsverzeichnis löschen
If Not Right$(!DTA_Dateiname_komplett, 10) = "\Thumbs.db" Then Kill !DTA_Dateiname_komplett

nächsten_Satz_lesen:
.MoveNext
Loop
.Close
End With

' Begleitzettel drucken
Set RS_in = DB.OpenRecordset("SELECT * FROM DTA_Dateien WHERE DTA_gedruckt_am Is Null AND DTA_erstellt_am Is not Null", DB_OPEN_DYNASET)
With RS_in
On Error Resume Next
If Not .EOF Then
.MoveLast
If .RecordCount > 0 Then
DoCmd.OpenReport "DTA_Begleitzettel", acViewNormal
DB.Execute "UPDATE DTA_Dateien SET DTA_gedruckt_am = NOW() WHERE DTA_gedruckt_am Is Null AND DTA_erstellt_am Is not Null"
End If
End If
End With

On Error Resume Next
'Kill "H:\MC3\Transfer\Prog\datei$$$.tmp"
On Error GoTo 0

DTA_Dateien_bearbeiten_Exit:

If Not DB Is Nothing Then Set DB = Nothing
If Not RS_in Is Nothing Then Set RS_in = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und zwar in der Zeile:

FileCopy !DTA_Dateiname_komplett, DTA_Zielpfad & !DTA_Dateiname_neu

User · 19. Oktober 2014

Keiner ne Idee? Sieht für mich so aus, als hätte er einfach Probleme die Datei DTA_Dateiname_komplett zu finden, oder? Aber die ist da...

Office: (Office 2003) Datei zum löschen wird nicht gefunden

Datei zum löschen wird nicht gefunden

Datei zum löschen wird nicht gefunden

Datei zum löschen wird nicht gefunden - Similar Threads - Datei löschen gefunden

Datenverbindungen in mehreren Excel Dateien löschen

Zeilen automatisch löschen nach Vergleich mit zweiter Datei

KEIN Löschen von Dateien

Microsoft Teams Dateien lassen sich nicht löschen

löschen von Dateien in der IPad-App

Dateien vor unbeabsichtigten löschen sichern

MS Teams: Dateien löschen