Verknüpfung auf aktuellste Datei im Verzeichnis aktualisieren

10/11/2010 - 17:21 von Volker Schmitt | Report spam
Hallo zusammen,

ich habe eine Verknüpfung zu einer Textdatei. Diese wird mit einer
fortlaufenden Nummerierung tàglich neu erstellt.
Ich möchte beim Öffnen der Datenbank jedes Mal prüfen, ob die
Verknüpfung auf der aktuellsten Datei liegt.
Wie kann ich dies tun? Über den Dateinamen komme ich nicht wirklich
dran.

Hat jemand eine Idee?

Gruß

Volker
 

Lesen sie die antworten

#1 Karl Donaubauer
10/11/2010 - 17:51 | Warnen spam
Volker Schmitt wrote:
ich habe eine Verknüpfung zu einer Textdatei. Diese wird mit einer
fortlaufenden Nummerierung tàglich neu erstellt.
Ich möchte beim Öffnen der Datenbank jedes Mal prüfen, ob die
Verknüpfung auf der aktuellsten Datei liegt.
Wie kann ich dies tun? Über den Dateinamen komme ich nicht wirklich
dran.
...



Du könntest mit Dir durch den Ordner schleifen und mit
FileDateTime prüfen, welche die aktuellste Datei ist.
Eine entsprechnende Funktion könnte ca. so aussehen:

Function fctFileNew (strDir As String) As String

Dim strFile As String, strFileNew As String
Dim dteDateNew As Date

strFile = Dir(strDir, vbDirectory)

Do While strFile <> ""
If strFile <> "." And strFile <> ".." Then
If FileDateTime(strDir & strFile) > dteDateNew Then
strFileNew = strFile
dteDateNew = FileDateTime(strDir & strFile)
End If
End If
strFile = Dir
Loop

fctFileNew = strFileNew

End Function

Aufruf mit:

irgendwas = fctFileNew("c:\Foo\")

Evtl. auch noch auf "txt" als Endung prüfen, oder was dir halt
Gewissheit gibt. Fehlerbehandlung fehlt natürlich noch.

Servus
Karl
*********
Access-FAQ: http://www.donkarl.com

Ähnliche fragen