Private Declare Function InternetOpen Lib "wininet.dll" _
 Alias "InternetOpenA" ( _
 ByVal sAgent As String, _
 ByVal nAccessType As Long, _
 ByVal sProxyName As String, _
 ByVal sProxyBypass As String, _
 ByVal nFlags As Long) As Long
 
Private Declare Function InternetCloseHandle _
 Lib "wininet.dll" ( _
 ByVal hInet As Long) As Integer
 
Private Declare Function InternetConnect _
 Lib "wininet.dll" Alias "InternetConnectA" ( _
 ByVal hInternetSession As Long, _
 ByVal sServerName As String, _
 ByVal nServerPort As Integer, _
 ByVal sUsername As String, _
 ByVal sPassword As String, _
 ByVal nService As Long, _
 ByVal nFlags As Long, _
 ByVal nContext As Long) As Long
 
Private Declare Function FtpPutFile _
 Lib "wininet.dll" Alias "FtpPutFileA" ( _
 ByVal hFtpSession As Long, _
 ByVal lpszLocalFile As String, _
 ByVal lpszRemoteFile As String, _
 ByVal dwFlags As Long, _
 ByVal dwContext As Long) As Boolean
 
Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Private Const INTERNET_INVALID_PORT_NUMBER = 0
Private Const INTERNET_SERVICE_FTP = 1
 
Private Const FTP_TRANSFER_TYPE_ASCII = &H1
 
Private hOpen As Long
Private hConnection As Long
Dim bResult As Boolean
 
hOpen = InternetOpen("FTP", _
  INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, _
  vbNullString, 0)
 
If hOpen Then
    hConnection = InternetConnect(hOpen, _
    "***", INTERNET_INVALID_PORT_NUMBER, _
     "***", "***", INTERNET_SERVICE_FTP, 0, 0)
  End If
 
If hConnection Then
 
  bResult = FtpPutFile(hConnection, "C:\***", "/***", FTP_TRANSFER_TYPE_ASCII, _
    0)
  If bResult Then
    MsgBox "Upload erfolgreich!"
  Else
    MsgBox "Fehler beim Upload der Datei!"
  End If
 
   bResult = InternetCloseHandle(hConnection)
   If bResult Then
      MsgBox "Ok hConnection"
   Else
      MsgBox "Fehler hConnection"
   End If
   hConnection = 0
   bResult = InternetCloseHandle(hOpen)
   If bResult Then
      MsgBox "Ok hOpen"
   Else
      MsgBox "Fehler hOpen"
   End If
   hOpen = 0
  Else
   MsgBox "Es konnte keine Verbindung hergestellt werden!"
  End If

[u]Mein System online

MfG ICE-MAN