Option Compare Database
Declare Function VBEX_FTPConnect Lib "vbex32.dll" _
  Alias "VBFTPCONNECT" ( _
  ByVal sServer As String, _
  ByVal sUser As String, _
  ByVal sPassword As String) As Long
 
 
Private Sub Befehl0_Click()
Dim sServer As String
Dim hSocket As Long
' Verbindung zum eigenen T-Online FTP-Server herstellen
sServer = "home-up.t-online.de"
hSocket = VBEX_FTPConnect(sServer, "", "")
If hSocket > 0 Then
  ' JEPP - Verbindung steht ;-)
Else
  MsgBox CStr(VBEX_FTPStatusCode()) & " - " & VBEX_FTPStatusMsg()
End If
 
End Sub