FTP

  Dim WithEvents mFtp As Looze_FTP.FTP
Private Sub Form_Load()
    Set mFtp = New Looze_FTP.FTP
    mFtp.Connect [Ô]seu.endereco.ftp[Ô], 21, [Ô]usuario[Ô], [Ô]senha[Ô], [Ô]initfolder[Ô]
End Sub

Private Sub Form_Unload(Cancel As Integer)
mFtp.DisConnect
End Sub

Private Sub Command1_Click()
    
    [ô]Download a file
    [ô]MsgBox mFtp.GetFile([Ô]httpdocs/licenca/Winbs32.dll[Ô], [Ô]c:\dddddddd.dll[Ô])
    
    [ô]Upload a file
    [ô]MsgBox mFtp.PutFile([Ô]c:\Estrutura 03-09-2009.sql[Ô], [Ô]httpdocs/licenca/WESSSEEEinbs32.dll[Ô])
    
    [ô]Remove a remote file
    [ô]MsgBox mFtp.Remove([Ô]test.jpg[Ô])
    
    [ô]rename a remote file or folder
    [ô]MsgBox mFtp.Rename([Ô]test.txt[Ô], [Ô]Testing.txt[Ô])
    [ô]MsgBox mFtp.Rename([Ô]blabla[Ô], [Ô]MyTestFolder[Ô])
    
    [ô]remove a remote folder
    [ô]MsgBox mFtp.RemoveFolder([Ô]test[Ô])
    
    [ô]create a remote folder
    [ô]MsgBox mFtp.CreateFolder([Ô]blablabla\123[Ô])
    
    [ô]get a directory listing
    [ô]folders start with: [Ô]\[Ô]
[ô]    Dim a() As String
[ô]    a = mFtp.ListDir([Ô][Ô])[ô]
[ô]    Dim i As Integer
[ô]    For i = 0 To UBound(a)
[ô]        Debug.Print i, a(i)
[ô]        if left a(i)=[Ô]\[Ô] then
[ô]            Debug.Print [Ô]Folder: [Ô] & Mid(a(i), 2)
[ô]        Else
[ô]            Debug.Print [Ô]File: [Ô]; a(i)
[ô]        End If
[ô]    Next i
End Sub