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

Ich habe hier eine Datenbank die 15 minütig startet und immer wieder überprüft ob in einem bestimmten Ordner Dateien abgelegt wurden. Wurde dies gemacht, erstellt die Datenbank eine Kopie und schiebt die Datei in einen "Save" Ordner. An den Dateinamen hängt sie noch den Namen des Ordners, aus dem sie die Datei geholt hat.

Sobald eine Datei gefunden und gesichert wurde, wird an einem bestimmten Drucker ein Ausdruck erstellt, so dass die Mitarbeiter dort wissen, dass Dateien da sind.

Jetzt ist es so, dass die Datenbank die Dateien kopiert und sie in einen Ordner schiebt und dann aber abbricht, sobald sie die Datei aus dem ursprünglichen Ordner, aus dem sie sie kopiert hat, löschen will.

Als Fehler wird "Laufzeitfehler 53 - Datei nicht gefunden" angezeigt.

Die Dateinamen der kopierten Dateien werden auch in eine Tabelle eingetragen.

Mein Vorgänger, der die DB erstellt hat, hat das Problem mit mir zusammen schon mal gelöst, in dem er die nicht vollständig bearbeiteten Daten aus der Tabelle gelöscht hat und die DB neu gestartet hat. Das klappt bei mir aber nicht - oder ich habe irgendeinen Schritt vergessen.

Ich komm auf jedenfall nicht weiter und würde mich freun, wenn mir jemand (mal wieder) helfen kann.

Der Fehler erscheint bei folgender Ausführung:

PHP:

         Kill !DTA_Dateiname_komplett


:)

 

Diese eine Code-Zeile genügt nicht zur Fehlersuche. Interessant wäre, "was vorher geschah".

 

PHP:

         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


 

Ich finde diese Zeile nicht in obigem Code.

 

Hallo
Schreibe einmal vor Diesen Befehl (oder den Befehl wo der Fehler auftritt )
Kill !DTA_Dateiname_komplett

Debug.print !DTA_Dateiname_komplett

und schaue was im Direkt Fenster Steht als Resultat von Debug.Print

und Prüfe ob diese Datei wirklich existiert

 

Die kommt im Anschluss. Ich hab jetzt alles was vorher kommt gepostet.

 

Hallo
hast Du mein Beirag gelesen und den Debug.print eingesetzt ?

evtl Liest Du einmal in meiner Doc s Fusszeile
Seite 99 -101 "5.4.15 Löschen einer Datei (Kill)"

 

Ich hab´s jetzt gemacht und er zeigt mir einfach nur den Fehler an - wie bisher auch. Muss ich das Direkt Fenster extra öffnen oder würde sich das durch den Code automatisch öffnen?

Es gibt in einer Tabelle den Spaltennamen DTA_Dateiname_komplett.

 

Hallo
Öffnen des Direktfenster im VBA-Editor mit (Strg+G / Ctrl+G) oder über Ansicht / Direktfenster
dazu lies in meiner doc
ab Seite 178
z.B DirektFenster offnen
da steht noch viel das bei der Fehler Suche helfen kann

 

Code:

Das bezweifle ich, dass "er" mit Debug.Print den (eingangs erwähnten) Fehler "Laufzeitfehler 53 - Datei nicht gefunden" anzeigt, wenn Du die Zeile
Code:

vorerst auskommentierst. Dabug.Print zeigt ja nur Ergebnisse an, unterdrückt aber keine Fehler.

 

Hallo
@maxel
ich denke das "er" durch Debug.print läuft und dann auf Kill kommt
da da aber immer noch nichts giltiges * drin ist kommt der gleiche Fehler !
* meint Leer oder nicht existierende Datei namen

jetzt muss das korrigiert werden möglich das es hilft im direkt-Fenster nach schauen *boah

möglich dass das auf Seite 99 -101 auch hilft
zuerst Prüfen ob eine gültige Pfad. Datei mitgegeben wird
auch SetAttr für die Datei kann wichtig Sein ! (SetAttr "dateipfad",vbNormal )

 

Im Zweifelsfall sollte man nicht nur überprüfen, ob das Recordsetfeld einen gültigen Pfad liefert, sondern auch, ob eine Datei unter dem verwendeten Pfad zum Kill-Zeitpunkt überhaupt existiert.

 

Hallo
@Eberhard

wie gesagt Seite 99 . 101
Code:

 

Das bezweifle ich, dass "er" mit Debug.Print den (eingangs erwähnten) Fehler "Laufzeitfehler 53 - Datei nicht gefunden" anzeigt, wenn Du die Zeile
Code:

vorerst auskommentierst. Dabug.Print zeigt ja nur Ergebnisse an, unterdrückt aber keine Fehler.


Ok... ich hatte nicht auskommentiert... Jetzt hat es geklappt und "er" zeigt mir im Direktfenster zwei Thumbs.db Dateien an - also den Pfad zu diesen Dateien. Beide Dateien sind auch tatsächlich in den Ordnern.

 

Das sind auch im Grunde die Dateien die gelöscht werden sollen. Die wurden gesichert, kopiert und der Ausdruck ist erfolgt und dann fehlt noch der letzte Schritt: Das Löschen aus dem Ordner. Er erkennt das also aber er löscht sie nicht.