Bildergalerie +++ Ereignisse +++ Spiele +++ Tipps & Tricks

Function ReadFile(ByRef Path As String) As String
  Dim FileNr As Long
  On Error Resume Next
  If FileLen(Path) = 0 Then Exit Function
  On Error GoTo 0
  FileNr = FreeFile
  Open Path For Binary As #FileNr
    ReadFile = Space$(LOF(FileNr))
    Get #FileNr, , ReadFile
  Close #FileNr
End Function