Problem beim Einlesen von Dateien über OpenFileDialog

Hallo,

ich versuche über einen Dialog eine Datei einzulesen, leider bekomme ich immer einen Type missmatch, da das Ergebnis als Variant geliefert wird ich aber einen String brauche um die Datei zu öffnen.
Zu konvertieren mit CStr hat leider auch nicht funktioniert.

Vielen Dank schonmal für eure Hilfe!

Agent:

Sub Initialize
	Dim session As New Notessession
	Dim ws As New NotesUiWorkspace
	Dim db As Notesdatabase
	Dim doc As Notesdocument
	Dim FileNum As Integer
	Dim txtFile As Variant
	Dim ausgabe As String
	Set db = session.currentDatabase

	'Auswahl der txt-Datei durch Benutzer
	txtFile = ws.OpenFileDialog( False, "File List",  "", "p:")

	'Öffnen der txt-Datei
	Open txtFile For Input As FileNum

	'Zeilenweises einlesen der txt-Datei
	Do Until Eof (fileNum)
		Line Input #fileNum, ausgabe
		' Ausgabe jeder Zeile		
		Print ausgabe
	Loop

End Sub

Danke jetzt bringt er mir aber die Fehlermeldung: Illegal FileNumber in der Zeile:

Open txtFile(0) For Input As FileNum

Zitat

Diali schrieb:
die musst Du mit Freefile ermitteln

fileNum% = FreeFile()
Open txtFile(0) For Input As fileNum%

Gruß
Dirk

Alles anzeigen

Danke das habe ich gemerkt, habe das Problem gelöst.

Ne andere Frage:

Gibt es eine Möglichkeit Arrays variabel zu vergrößern, ohne den Inhalt zu löschen? Mit Redim kriege ich immer ein neues leeres Array.

Zitat

notesfan schrieb:
Die Noteshilfe meint dazu:
redim preserve...

Danke. Ich sollte doch schneller lesen, als schreiben. :idea:

Bis demnächst