Espero que esto te sirva. Cuentanos a ver como te ha ido al probarlo.



Private Declare Function GetShortPathName Lib "kernel32" Alias _
    "GetShortPathNameA" (ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''' FTP ''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Esta API es para que de una ruta WIndows, me devuelva una ruta MSDOS,
'ya que el comando FTP del prompt no reconoce rutas largas

Public Function RutaDos(strFileName As String) As String

    Dim lngRes As Long, strPath As String
    strPath = String$(165, 0)
    lngRes = GetShortPathName(strFileName, strPath, 164)
    RutaDos = Left$(strPath, lngRes)
   
End Function


''''''''''''''''''''''''''''''''''
''''''' subir fichero ''''''''''''
''''''''''''''''''''''''''''''''''


Function PutFichero()
On Error GoTo ERROR

    Dim Retval
    'escribimos el fichero ftp.txt que hara toda la labor
    If Len(Dir("C:\ftp.txt")) <> 0 Then Kill "C:\ftp.txt"
   
    Dim StrFtp As String
    Dim StrUsuario As String
    Dim StrPassword As String
    Dim strCarpetaRemota As String
    Dim StrRutalocalFichero As String
   
 
    StrFtp = "ftp.sitio.com"
    StrUsuario = "sitio.com"
    StrPassword = "contraseña"
    strCarpetaRemota = "html/BD/"
    StrRutalocalFichero =  "BD.zip"
   
    ' subir al servidor
    NumeroArchivo = FreeFile
    Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "binary"
    Print #NumeroArchivo, "put " & RutaDos(StrRutalocalFichero)
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents

'    Retval = Shell("ftp -s:C:\ftp.txt", vbNormalFocus)
    Call ExecuteAndWait("ftp -s:C:\ftp.txt")
   
    Exit Function

ERROR:
End Function



''''''''''''''''''''''''''''''''''
''''''' bajar fichero ''''''''''''
''''''''''''''''''''''''''''''''''


Function GetFichero()
On Error GoTo ERROR

    Dim Retval

    Dim StrFtp As String
    Dim StrUsuario As String
    Dim StrPassword As String
    Dim strCarpetaRemota As String
    Dim StrFicheroRemoto As String
   
    StrFtp = "ftp.sitio.com"
    StrUsuario = "sitio.com"
    StrPassword = "contraseña"
    strCarpetaRemota = "html/BD/"
    StrFicheroRemoto = "BD.ZIP"
   
    ' bajar el fichero
    NumeroArchivo = FreeFile
    Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "binary"
    Print #NumeroArchivo, "get " & StrFicheroRemoto & " " & _
            RutaDos(Directorio) & "BD.zip"
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents

'    Retval = Shell("ftp -s:C:\ftp.txt", vbNormalFocus)
    Call ExecuteAndWait("ftp -s:C:\ftp.txt")
   
    If Len(Dir("C:\ftp.txt")) <> 0 Then Kill "C:\ftp.txt"
   
    ' cambiar nombre, para tener una cópia de seguridad
    NumeroArchivo = FreeFile
    Open "C:\ftp.txt" For Append As #NumeroArchivo
    Print #NumeroArchivo, "Open " & StrFtp
    Print #NumeroArchivo, StrUsuario
    Print #NumeroArchivo, StrPassword
    Print #NumeroArchivo, "cd " & strCarpetaRemota
    Print #NumeroArchivo, "rename " & StrFicheroRemoto & " " & _
            "BD_" & FECHA & ".zip"
    Print #NumeroArchivo, "bye"
    Close #NumeroArchivo
    DoEvents

    Call ExecuteAndWait("ftp -s:C:\ftp.txt")
   
    Exit Function

ERROR:
End Function

WTF!

ese codigo no hace nada interesante...

ami no me funciona ay k ponmer algo en el form load¿?