Supportnet / Forum / Datenbanken
Testen von Links
Frage
Hallo zusammen!
Ich hab ein Problem und weiß irgendwie nicht, wie ich da ran gehen soll!
Ich habe ne Access-Datenbank für die Verwaltung von Dokumenten. (Access 2003)
In der Grundtabelle ist zu jedem Dokument ein Link zu dem auf Intranet-Servern befindlichen Dateien hinterlegt.
Ich möchte nun prüfen, ob das hinterlegte Dokument noch vorhanden ist. Dies sollte nicht für jedes Dokument manuell einzeln erfolgen, sondern gleich in einer Schleife ... es sind ca. 5000 Dokumente.
Vielen Dank im Vorraus
Antwort 1 von TomKelly
Hallo benanufibi
Deine Anfrage ist schon etwas lange her, aber vielleicht brauchst Du ja immer noch eine Antwort:
Mit Code kannst Du es folgendermassen lösen:
Sub PruefeDateien()
Dim Tab1 as RecordSet, l as long
Set Tab1 = CurrentDB.OpenRecordSet("Deine Tabelle", dbOpenSnapshot)
On Error Resume Next
While Not Tab1.EOF
l = 0
l = FileLen(Tab1![Pfad])
If l = 0 Then Datei nicht vorhanden
Tab1.MoveNext
Wend
On Error Goto 0
End Sub
Ich hab den Code nicht laufen lassen, er sollte aber mehr oder weniger funktionieren.
Wichtig: Wenn der Pfad als Hyperlink gespeichert ist, könnten noch #-Zeichen drin sein, welche Du zuerst mit den Mid$ und Left$ - Funktionen entfernen musst.
Gruss
TomKelly
Deine Anfrage ist schon etwas lange her, aber vielleicht brauchst Du ja immer noch eine Antwort:
Mit Code kannst Du es folgendermassen lösen:
Sub PruefeDateien()
Dim Tab1 as RecordSet, l as long
Set Tab1 = CurrentDB.OpenRecordSet("Deine Tabelle", dbOpenSnapshot)
On Error Resume Next
While Not Tab1.EOF
l = 0
l = FileLen(Tab1![Pfad])
If l = 0 Then Datei nicht vorhanden
Tab1.MoveNext
Wend
On Error Goto 0
End Sub
Ich hab den Code nicht laufen lassen, er sollte aber mehr oder weniger funktionieren.
Wichtig: Wenn der Pfad als Hyperlink gespeichert ist, könnten noch #-Zeichen drin sein, welche Du zuerst mit den Mid$ und Left$ - Funktionen entfernen musst.
Gruss
TomKelly