Visual Basic - Technik, FAQ, Tricks, Beispiele

Home / Daten / Dateien / Einlesen

Beliebige Datei einlesen

Folgende Funktion liest eine Datei in einem Rutsch komplett ein:
Function ReadFile(ByRef Path As String) As String
  Dim FileNr As Long
  
  'Falls nicht vorhanden, nichts zurückgeben:
  On Error Resume Next
  If FileLen(Path) = 0 Then Exit Function
  On Error GoTo 0
  
  'Datei einlesen:
  FileNr = FreeFile
  Open Path For Binary As #FileNr
    ReadFile = Space$(LOF(FileNr))
    Get #FileNr, , ReadFile
  Close #FileNr
End Function
...>>

© Jost Schwider, 07.05.2000-07.05.2000 - http://vb-tec.de/readfile.htm