title image


Smiley Re: Text-Datei in Formular anzeigen
Hi,



kopiere Dir mal folgendes Coding in Dein Formularmodul:





Public Function FileReadAll(strFileName As String) As String

Dim fso As Object

Dim fsoFile As Object

On Error GoTo FileReadAllErr

FileReadAll = ""

Set fso = CreateObject("Scripting.FileSystemObject")

Set fsoFile = fso.OpenTextFile(strFileName, ForReading, False)

FileReadAll = fsoFile.ReadAll

fsoFile.Close

FileReadAllExit:

Set fsoFile = Nothing

Set fso = Nothing

Exit Function

FileReadAllErr:

MsgBox Err.Description, vbCritical, "FileReadAll: Fehler " & Err.Number & " aufgetreten!"

FileReadAll = ""

Resume FileReadAllExit

End Function





Dann benötigst Du noch zwei Textfelder in Deinem Formular: Eines z.B. mit Namen txtFileName, in das Du den vollständigen Pfad der Textdatei eingibst (also so was wie C:\Temp\Test.txt) und eines, in der deren Inhalt ausgegeben werden soll. Letzteres benennst Du meinetwegen mit txtFileContent & gibst unter Steuerelementinhalt ein =FileReadAll([txtFileName])



Aus gegebenem Anlass musst Du ggf. noch ein Requery auf txtFileContent absetzen (z.B. im txtFileName_AfterUpdate oder in Form_Current), aber im wesentlichen ist es das.



Greetz,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: