title image


Smiley Re: Wie kann man eine Textdatei in Memofeld importieren ?
Ich würd's so machen:



Public Function WriteTextFile(S As String, FName As String)

Dim Strm As Scripting.TextStream, FSO As New Scripting.FileSystemObject

Set Strm = FSO.OpenTextFile(FName, ForWriting, True)

Strm.Write S

Strm.Close

Set Strm = Nothing

Set FSO = Nothing

End Function



Public Function ReadTextFile(FName As String) As String

Dim Strm As Scripting.TextStream, FSO As New Scripting.FileSystemObject

Set Strm = FSO.OpenTextFile(FName, ForReading)

ReadTextFile = Strm.ReadAll

Strm.Close

Set Strm = Nothing

Set FSO = Nothing

End Function





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: