<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  Command1_Click()
  <font color=#000099>Dim</font> sLocalFile <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> sRemoteFile <font color=#000099>As</font> _
  <font color=#000099>String</font>
  <font color=#000099>Dim</font> nMode <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> nResult <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> sUser <font color=#000099>As</font> <font _
  color=#000099>String</font>
  <font color=#000099>Dim</font> sPassword <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  <font color=green>' 
  ' ###########################################################################
  ' #</font>
  sServer = "juan-montoya.de"
  sUser = "xxxxxx"
  sPassword = "xxxxxx"
 
  hSocket = VBEX_FTPConnect(sServer, sUser, sPassword)
  <font color=#000099>If</font> hSocket > 0 <font color=#000099>Then</font>
    nResult = VBEX_FTPChangeDir(hSocket, "/juanmontoya/Daten")
    <font color=#000099>If</font> nResult <> 0 <font color=#000099>Then</font>
 
      sRemoteFile = "members.dat"
      sLocalFile = "A:Test.dat"
 
      <font color=green>' ASCCI-Übertragung (2 für Binär)</font>
      nMode = 1
 
      nResult = VBEX_FTPFileDownload(hSocket, txtStatus.hWnd, sServer, _
        sRemoteFile, sLocalFile, nMode)
 
      <font color=#000099>If</font> nResult <> 0 <font color=#000099>Then</font>
        MsgBox "RemoteFile existsiert nicht!"
      <font color=#000099>End</font> <font color=#000099>If</font>
    <font color=#000099>Else</font>
      MsgBox "Verzeichnis existiert nicht!"
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>Else</font>
    MsgBox "FTP-Verbindung gescheitert." & vbCrLf & _
      "Bitte Benutzernamen und Kennwort prüfen!"
  <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=green>' 
  ' ###########################################################################
  ' #</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>