Wie kann ich feststellen ob der Download neuer als die vorhandene Datei ist?

30/05/2009 - 07:25 von Peter Wilker | Report spam
Hallo

Ich habe noch eine Frage

Ich habe in meiner Anwendung eine Excel Datei eingebunden. Die
Dateiherkunft ist das Internet. Diese Datei wird gelegendlich auf der
Webseite aktualisiert. Downloaden kann ich sie mit 'CopyURLToFile'.

Meine Frage:
Wie kann ich feststellen, ob die Datei im Internet neuer ist als die
welche ich auf meinen Rechner habe, OHNE die Datei downzuloaden?
Der Dateiname setzt sich aus dem Namen+Datum und der Endung zusammen
'xxxx_10_04_2009.xls'.

Besten Dank


Hans Peter Wilker
 

Lesen sie die antworten

#1 Jörg Ackermann
29/05/2009 - 10:00 | Warnen spam
Hallo Peter,

Peter Wilker meinte:

Ich habe in meiner Anwendung eine Excel Datei eingebunden. Die
Dateiherkunft ist das Internet. Diese Datei wird gelegendlich auf der
Webseite aktualisiert. Downloaden kann ich sie mit 'CopyURLToFile'.

Meine Frage:
Wie kann ich feststellen, ob die Datei im Internet neuer ist als die
welche ich auf meinen Rechner habe, OHNE die Datei downzuloaden?
Der Dateiname setzt sich aus dem Namen+Datum und der Endung zusammen
'xxxx_10_04_2009.xls'.



Wie ermittelst Du den aktuellen Dateiname
auf der Webseite?
Schaust Du im Browser nach oder liest Du die
Seite im Access ein?

Falls manuell, kannst Du den Vergleich etwa so
gestalten:

In ein Modul:
'
Public Function CompareFileNames(FileNameLocal As String, _
FilenameRemote As String) As Boolean

Dim DLocal As Date
Dim DRemote As Date

DLocal = CDate(Left(Replace(Right(FileNameLocal, 14), "_", "."), 10))
DRemote = CDate(Left(Replace(Right(FilenameRemote, 14), "_", "."), 10))

CompareFileNames = (DRemote > DLocal)

End Function
'-

Test im Direktfenster

? CompareFileNames("trala_01_03_2009.xls","trula_01_02_2009.xls")
Wahr


Gruß Acki

Mitglied im DBDEV http://www.dbdev.org
Access-FAQ: http://www.donkarl.com

Ähnliche fragen