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


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: