VB-Tec.de Visual Basic - Technik, FAQ, Tricks, Beispiele

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

...>>