Example
| Sub Main
' Pass a domain or IP address..
Dim success As Long
success = sftp.Connect("my-sftp-server.com",22)
If (success = 1) Then
success = sftp.AuthenticatePw("mySFtpLogin","mySFtpPassword")
End If
If (success = 1) Then
success = sftp.InitializeSftp()
End If
If (success <> 1) Then
Debug.Print sftp.LastErrorText
Exit Sub
End If
' In this example, the we already have a symbolic link named "sshd_config"
' in our SSH/SFTP user account's HOME directory. Get the target of this link:
Dim path As String
path = sftp.ReadLink("sshd_config")
If (sftp.LastMethodSuccess <> 1) Then
Debug.Print sftp.LastErrorText
Exit Sub
End If
Debug.Print "symlink target path = " & path
' Output is:
' symlink target path = /etc/ssh/sshd_confi
End Sub
|