http://www.bigresource.com/

Private Sub cmdConectar_Click()
With DatosConexion
     .User = txtUser.Text
     .Pass = txtPass.Text
     .NameFTP = txtNombreFTP.Text
     If IniConex(.User, .Pass, .NameFTP) = True Then
        MsgBox "conecto xD"
     Else
        MsgBox "revise los datos de conexion, no se pudo conectar", vbOKOnly + vbCritical, "Atencion: Error"
     End If
End With
End Sub

Private Sub cmdSubir_Click()
On Error GoTo errsub
ArchivoSub txtOrigen.Text, txtDestinoFTP
Exit Sub
errsub:
If Err.Number = 32755 Then Exit Sub
End Sub
 

Option Explicit
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect&, ByVal lpszLocalFile$, ByVal lpszNewRemoteFile$, ByVal dwFlags&, ByVal dwContext&) As Boolean
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession&, ByVal sServerName$, ByVal nServerPort%, ByVal sUserName$, ByVal sPassword$, ByVal lService&, ByVal lFlags&, ByVal lContext&) As Long
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent$, ByVal lAccessType&, ByVal sProxyName$, ByVal sProxyBypass$, ByVal lFlags&) As Long
Type ConnData
    User As String
    Pass As String
    NameFTP As String ' ejemplo "ftp.microsoft.com"
End Type
Public Function IniConex(Usuario$, Password$, NombreServer$) As Boolean
IniConex = False
TestConexion = InternetOpen(vbNullString, 0, vbNullString, vbNullString, 0)
If TestConexion = 0 Then
   MsgBox "No hay conexion a internet", vbOKOnly + vbCritical, "Atencion: Error"
   Exit Function
Else
   IniConex = True
   reConFtp = InternetConnect(TestConexion, NombreServer, 21, Usuario, Password, 1, IIf(True, &H8000000, 0), 0)
   If reConFtp Then
   Else
   MsgBox "datos erroneos, verifique pass, user y nombre de ftp", vbOKOnly + vbCritical, "Error"
   IniConex = False
   End If
End If
End Function
Public Sub ArchivoSub(unaRutaArchivo$, ArchivoRemm$)
Dim UpFtp As Boolean
UpFtp = FtpPutFile(reConFtp, unaRutaArchivo, ArchivoRemm, 1, 0)
If UpFtp Then
   MsgBox "archivo subido correctamente", vbOKOnly + vbInformation, "Finalizado"
Else
   MsgBox "error al subir", vbOKOnly + vbCritical, "Atencion: Error"
End If
End Sub

Option Explicit
Public TestConexion&
Public reConFtp&
Public DatosConexion As ConnData

https://www.mediafire.com/?u84zjhl8yb3d5b5

http://www.recursosvisualbasic.com.ar/htm/listado-api/api-29.htm

' Función Api GetDriveType para obtener el tipo y clase de unidad  
Private Declare Function GetDriveType _  
    Lib "kernel32" _  
    Alias "GetDriveTypeA" ( _  
    ByVal nDrive As String) As Long  
 
Private Sub Command1_Click()  
' Llamamos a la función pasandole la unidad que queremos obtener la información  
Select Case GetDriveType(Trim(Text1))  
        Case 2  
            ' Unidad de tipo removible, por ejemplo la unidad A:  
            MsgBox "Unidad removible"  
        Case 3  
            ' Por ejemplo un disco duro  
            MsgBox "Unidad Fija"  
        Case Is = 4  
            ' Una unidad de red  
            MsgBox "Unidad remota"  
        Case Is = 5  
            'Unidad de Cd - Dvd  
            MsgBox "Unidad de Cd-Rom"  
        Case Is = 6  
            ' Para una unidad de dsico Virtual  
            MsgBox "Unidad virtual"  
        Case Else  
            'Cuando es desconocida  
            MsgBox "Unidad no reconocida"  
    End Select  
End Sub