Description
| Simple example to upload a file to an SFTP server.
|
---|---|
Example
| Sub Main
Dim success As Long
SFTP.Hostname = "www.example-code.com"
SFTP.Username = "***"
SFTP.Password = "***"
' Use Passive mode.
SFTP.Passive = 1
' Connect and login to the SFTP server.
success = SFTP.Connect()
If (success <> 1) Then
MsgBox SFTP.LastErrorText
Exit Sub
End If
' Change to the remote directory where the file will be uploaded.
success = SFTP.ChangeRemoteDir("junk")
If (success <> 1) Then
MsgBox SFTP.LastErrorText
Exit Sub
End If
' Upload a file.
Dim localFilename As String
localFilename = "hamlet.xml"
Dim remoteFilename As String
remoteFilename = "hamlet.xml"
success = SFTP.PutFile(localFilename,remoteFilename)
If (success <> 1) Then
MsgBox SFTP.LastErrorText
Exit Sub
End If
SFTP.Disconnect
MsgBox "File Uploaded!"
End Sub
|