Visual Basic 6.0

Upload Directory Tree

See more FTP Examples

Upload an entire directory tree from the local filesystem to an FTP server. Visual Basic 6.0

Dim success As Long
success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim ftp As New ChilkatFtp2

ftp.KeepSessionLog = 1

ftp.Hostname = "ftp.example.com"
ftp.Username = "login"
ftp.Password = "password"

' Connect and login to the FTP server.
success = ftp.Connect()
If (success <> 1) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

' Set the current remote directory to the root where the
' directory tree will be uploaded.
success = ftp.ChangeRemoteDir("/something")
If (success <> 1) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

' Upload the entire directory tree rooted at c:/temp/something
success = ftp.PutTree("c:/temp/something")
If (success <> 1) Then
    Debug.Print ftp.LastErrorText
    Exit Sub
End If

success = ftp.Disconnect()

Debug.Print ftp.SessionLog