Dim filename As String = MMI.TeachinDIRlocal & _
                                  "\" & MMI.SortVISU.SVTeachinNEU(i) & ".bti"
 
                                Dim fs As New System.IO.FileStream(filename, _
                                  FileMode.Open) 'Filestream anlegen
 
 
                                Dim sendByteFile As Byte() = _
                                  Encoding.Unicode.GetBytes(fs.Length)
                                networkStr.Write(sendByteFile, 0, _
                                sendByteFile.Length)

mfg
rt