Function sendfile(st$, ip, port)
    If FileType(st$)
   
   writelog(st$+" wird gesendet...")

    ; Bereitet den Empfänger auf die Datei vor
   WriteString sendstream, "INCOMINGFILE"
                     
    ; Filter den Teil vor der Datei heraus ( Z.B. wenn man versehentlich Currentdir$() mit sendet"
   temp$ = CurrentDir$()
   For a=1 To Len(st$)
      If Mid$(temp$,1,a)<>Mid$(st$,1,a) Then st$ = Right$(st$,Len(st$)-a+1) : Exit
   Next

   ; Sendet den Dateipfad
   WriteString sendstream, st$
   SendUDPMsg sendstream, ip, port
   
   ; Sendet die Datei
   f = ReadFile(st$)
   While Not Eof(f)
      
      byte =  ReadByte(f)
      WriteByte sendstream, byte
   Wend

   CloseFile f : SendUDPMsg sendstream, ip, port

   writelog("Datei wurde erfolgreich gesendet!")
   Else
      writelogerror("Die Datei "+st$+" existiert nicht")
   End If
End Function

Function receivefile$()
   st$ = ReadString$(readstream)

   writelog("Empfange die Datei "+st$)
   
   f = WriteFile(st$) : RecvUDPMsg(readstream)

   While ReadAvail(readstream)
      byte = ReadByte(readstream)
      WriteByte f, byte
   Wend
   CloseFile f
   
   writelog("Datei wurde erfolgreich empfangen")
   Return st$
End Function