Test FTP Connection

[Grant]

How can I test to make sure my FTP connection is connected before I execute
my code.

Thanks
Grant


ActiveWorkbook.SaveAs Filename:= _
"ftp://123.456.7.89/path/invoice.dat", FileFormat:=xlTextPrinter _
, CreateBackup:=False

 

[Sami Askar]

I use an ActiveX control from http://www.chilkatsoft.com/

Set chilkatFTP = CreateObject("ChilkatFTP.ChilkatFTP")

'FTP Parameters
chilkatFTP.Hostname = hostip
chilkatFTP.UserName = username
chilkatFTP.Password = password

'Connect
chilkatFTP.Connect

'Was the connection successful?
If chilkatFTP.IsConnected Then
'DO SOMETHING
Else
'DO SOMETHING ELSE
End If