Domino 9 und frühere Versionen > ND6: Entwicklung

über FSO das Datum einer Datei ermitteln

(1/2) > >>

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 ;D schaue ich mir das mal an. Aus dem Hut kann ich dazu nichts sagen.

Bernhard

y20frank:

--- Zitat -----> 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 = ...>
--- Ende Zitat ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite