Kontakt
DSVGO
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