' Datei-Upload
Dim sLocalFile As String
Dim sRemoteFile As String
Dim nMode As Long
 
' Lokale Datei, die hochgeladen werden soll
sLocalFile = "C:\test.txt"
 
' Dateiname und Verzeichnis auf dem Server
sRemoteFile = "neutest.txt"
 
' Binary-Übertragung
nMode = 2
 
' Upload starten und Fortschritt in einer TextBox anzeigen
nResult = VBEX_FTPFileUpload(hSocket, 0, sServer, _
  sRemoteFile, sLocalFile, nMode)