Ihr regt Euch aber auch etwas künstlich auf finde ich. Einmal meckern (zurecht) reicht und dann einfach ignorieren, wenn es stört.
Abgesehen davon, dass markus76 leider fast nur Kleinbuchstaben verwendet, sagt er ja: "der agent ist in lotus script programmiert".
Es wäre natürlich sehr hilfreich, wenn markus76 wenigstens den Codeteil posten würde, der auf die Datei zugreift. Das scheint ja offenbar nicht zu funktionieren. Die geballte Erfahrung hier wird sicherlich dann schnell sagen können, woran es hapert. Diverse Fragen hier im Thread zielten ja schon darauf ab.
Als Denkanstoß poste ich mal Lotus Script Code, der aus einer fest definierten Datei, die erste Zeile ausliest und diese in einer Messagebox ausgibt. Dann wird die Datei geschlossen. Die Schleife außenrum iteriert eigentlich bis zum Dateiende (End Of File).
Das alles ohne Error Handling.
Wenn es keine feste Datei ist, kann man mit
stringArray = notesUIWorkspace.OpenFileDialog( multipleSelection , [title$] , [filters$] , [initialDirectory$] , [initialFile$] )
arbeiten.
Andreas
Hier also der Code >>>
Dim fileName As String
Dim fileNum As Integer
Dim lineString As String
'Hole offene File Nummer
fileNum = Freefile()
fileName = "c:\test.txt"
Open fileName For Input As fileNum 'Öffne Datei
'Lese aus Datei bis EOF
Do Until Eof (fileNum)
Line Input #fileNum, lineString 'Lese Datei zeilenweise ein
'Ausgabe erste Zeile und Abbruch nach Einlesen der ersten Zeile
Messagebox lineString
goto LabelCloseFile
Loop
LabelCloseFile:
'Schließe Datei
Close fileNum