Hi,
 
der Wert ist 0
 
Hier Routine:
Private Sub Command1_Click()
Dim sLocalFile As String
Dim sRemoteFile As String
Dim nMode As Long
Dim nResult As Long
Dim sUser As String
Dim sPassword As String
 
'############################################################################
sServer = "juan-montoya.de"
sUser = "xxxxxx"
sPassword = "xxxxxx"
 
hSocket = VBEX_FTPConnect(sServer, sUser, sPassword)
 
nResult = VBEX_FTPChangeDir(hSocket, "/juanmontoya/Daten/")
 
If hSocket > 0 Then
  If nResult Then
    sRemoteFile = "members.dat"
    sLocalFile = "A:Test.dat"
    ' ASCCI-Übertragung (2 für Binär)
    nMode = 1
 
    nResult = VBEX_FTPFileDownload(hSocket, txtStatus.hWnd, sServer, _
      sRemoteFile, sLocalFile, nMode)
  Else
    MsgBox "Verzeichnis existiert nicht!"
  End If
Else
  MsgBox "Es ist ein Fehler aufgetreten"
  Exit Sub
End If
 
MsgBox "Wert von VBEX_FTPFileDownload: " & VBEX_FTPFileDownload(hSocket, _
  txtStatus.hWnd, sServer, _
      sRemoteFile, sLocalFile, nMode)
'############################################################################
End Sub
 
Ich hoffe Du kannst was mit anfangen.
Danke für Deine Mühen
 
Cu