Secure Property | ||
Syntax
Remarks
Data Type
Example
FileTransfer1.ServerType = fileServerHttp FileTransfer1.ServerName = strHostName FileTransfer1.ServerPort = 443 FileTransfer1.Secure = True nError = FileTransfer1.Connect() If nError > 0 Then MsgBox "Unable to connect to server " & strHostName, vbExclamation Exit Sub End If If FileTransfer1.CertificateStatus <> stCertificateValid Then lResult = MsgBox("The server certificate could not be validated" & vbCrLf & _ "Are you sure you wish to continue?", vbYesNo) If lResult = vbNo Then FileTransfer1.Disconnect Exit Sub End If End If nError = FileTransfer1.GetFile(strLocalFile, strRemoteFile) FileTransfer1.Disconnect If nError > 0 Then MsgBox "Unable to retrieve file from server " & strHostName Exit Sub End If See Also |
||
Copyright © 2024 Catalyst Development Corporation. All rights reserved. |