Hallo, ich stelle gerade meine Programm von RB2007r2 auf RB2010r2 für Windows
um.
U.a. muss ich eine Standard-Funktion zum Einlesen einfacher txt-Dateien
umbauen. Aber während es in einem eigenen Test-Programm gut läuft, kommt es in
einem anderen Programm zu einem IOFehler. Ich kann nicht erkennen, dass in den
Programmen Unterschiede vorliegen, oder habe ich doch etwas übersehen?
Gruß, Christian Hahn.
Function TxtDateiLaden(optional DateiName as String) As String
Dim f As FolderItem
Dim t As TextInputStream
Dim GesamtText as String
if DateiName >"" then
f=GetFolderItem (DateiName)
else
f=GetOpenFolderItem("text")
end if
If f <> Nil then
t=TextInputStream.Open(f) // hier bleibt das Programm mit IOExeption stehen
t.Encoding=Encodings.WindowsANSI
GesamtText = t.ReadAll
t.Close
Return GesamtText
End if
End Function
