Public Structure DataTransfer
        Dim filename As String
        Dim position As Long
        Dim size As Integer
        Dim status As Boolean
    End Structure
 
Public transfer As DataTransfer
 
 
Sub senden()
        Dim buffer(250) As Byte
        Dim name As String
 
        If netStream.CanRead Then
            netStream.Read(buffer, 0, 250)
 
            If String.Compare(Encoding.ASCII.GetString(buffer), "OK") = 0 Then
                If netStream.CanWrite Then
 
                    If transfer.status = True Then
                        Call auslesen()
                        netStream.Write(daten, 0, Len(daten))
 
                    Else
                        netStream.Write(Encoding.ASCII.GetBytes("Finish"), 0, _
                          Len("Finish"))
                    End If
 
                End If
            Else
 
                name = Encoding.ASCII.GetString(buffer)
                transfer.filename = name.Trim
                transfer.status = True
 
                transfer.position = 0
                Call auslesen()
                netStream.Write(daten, 0, daten.Length)
                Call start()
            End If
        End If
    End Sub
 
Function auslesen() As Boolean
Dim fi As New FileInfo(transfer.filename) '''fehler hier
'.....
end function