über FSO das Datum einer Datei ermitteln

[scsi]

Hallo,

auch wenn das Thema hier schon oft commitet war, ich komme nicht weiter.

Das Problem:
Ich lese aus dem Filesystem Dateien aus, erstelle sie als Attachment in jeweils einem neu erstelltem Notes-Dokument und möchte gleichzeitig das Erstellungsdatum der Datei speichern.

Das ist der Code dazu (mal vereinfacht in einem Button):

Sub Click(Source As Button)
   Dim fName As String
   
   fName = "C:\Temp\Test1.doc"
   Msgbox "1 --> " + fName
   Call fnFso(fName)
   
   fName = "C:\Temp\Test2.xls"
   Msgbox "2 --> " + fName   
   Call fnFso(fName)
End Sub


Sub fnFso(fName)
   Dim s As String
   Dim fso As Variant
   Dim fil As Variant
   
   Set fso = CreateObject( "Scripting.FileSystemObject" )
   Set fil = fso.getFile(fName)
   s = "Date: " + fil.dateCreated
   Msgbox s
   s = "Type: " + fil.type
   Msgbox s
   
   Set fso = Nothing
   Set fil = Nothing
   
End Sub

--> Aber es geht immer nur für die erste ausgelesene Datei, hier wird das Datum korrekt angezeigt, bei der 2. Datei (und jeder weiteren): "OLE: Automation Object Error" in der Funktion <fnFso> beim <Set fil = ...>


Ich habe dazu die hilfreiche Klasse Filesystem gefunden -->
http://atnotes.de/index.php?topic=27547.msg174770#msg174770

Aber auch wenn ich die Klasse File benutze - gleicher Effekt 

Dim objFile As New File(fName)
doc.ReportDat = objFile.DateCreated

Hat jemand eine Idee dazu?
Vielen Dank schonmal vorab für die Mühe.

[koehlerbv]

Warum verwendest Du dazu nicht die FileDateTime function von LotusScript?

Bernhard

[scsi]

Hallo Bernhard,

Danke - warum hab ich das nicht früher schon mal probiert. Mir hatte sich eingeprägt, das LS das nicht kann.
Nun gut - so gehts - aber warum geht der andere Weg nicht?
Hast Du dafür eine Erklärung?

Grüße
Silke

Kann es evtl. eine Client- bzw. Server-Einstellung sein?

[koehlerbv]

Wenn ich mal Zeit habe schaue ich mir das mal an. Aus dem Hut kann ich dazu nichts sagen.

Bernhard

[y20frank]

--> Aber es geht immer nur für die erste ausgelesene Datei, hier wird das Datum korrekt angezeigt, bei der 2. Datei (und jeder weiteren): "OLE: Automation Object Error" in der Funktion <fnFso> beim <Set fil = ...>

Also bei mir funktioniert der Code ohne Fehler... solange die darin "abgrfragten" Dateien auch tatsächlich auf dem Laufwerk existieren. Ansonsten bekomme ich auch die og. Meldung... ;-)

Würde allerdings Bernhard's Vorschlag eher favorisieren...

Gruß
Frank

[scsi]

Jetzt habe ich mir das heute früh gleich noch mal vorgenommen und als erstes die DB einfach mal neu kopiert und den Testbutton neu erstellt - da ja der Code anscheinend nicht falsch ist - in dem neu erstellten Button ging es auch sofort.

Der Einbau in mein vorhandenes Script (auslesen eines kompletten Verzeichnis-Baums) - neben dem Erstelldatum der Datei will ich später auch noch den Autor des Dokumentes wo möglich und aus Office-Dokumenten evtl. Stichwörter auslesen - ist jetzt hoffentlich nur noch Formsache.

Leider liefert Notes über FileDateTime - Funktion u.U. das letzte Änderungsdatum der Datei, und nicht das Erstellungsdatum - naja, mal schauen, jedenfalls komme ich jetzt erst mal weiter.

Vielen Dank nochmal an euch.