halfbarrel
Programmer
Hello,
I found the below code in thread Thread181-83297, but do not know which library to reference in my vba code. Can someone help?
Thanks,
Set FTPconn = New Inet
'Set Properties
FTPconn.Protocol = icFTP
FTPconn.RequestTimeout = 600
FTPconn.URL = "ftp://ftp.address"
'Connect
FTPconn.OpenURL
Do While FTPconn.StillExecuting = True
DoEvents
Loop
'Navigate To Directory
FTPconn.Execute , "cd ."
Do While FTPconn.StillExecuting = True
DoEvents
Loop
'Get File
updateToLocation = CurrentProject.path & "\" & fileToUpdate
executeCmd = "get " & fileToUpdate & " " & updateToLocation
FTPconn.Execute , executeCmd
Do While FTPconn.StillExecuting = True
DoEvents
Loop
'Kill Connection
FTPconn.Cancel
I found the below code in thread Thread181-83297, but do not know which library to reference in my vba code. Can someone help?
Thanks,
Set FTPconn = New Inet
'Set Properties
FTPconn.Protocol = icFTP
FTPconn.RequestTimeout = 600
FTPconn.URL = "ftp://ftp.address"
'Connect
FTPconn.OpenURL
Do While FTPconn.StillExecuting = True
DoEvents
Loop
'Navigate To Directory
FTPconn.Execute , "cd ."
Do While FTPconn.StillExecuting = True
DoEvents
Loop
'Get File
updateToLocation = CurrentProject.path & "\" & fileToUpdate
executeCmd = "get " & fileToUpdate & " " & updateToLocation
FTPconn.Execute , executeCmd
Do While FTPconn.StillExecuting = True
DoEvents
Loop
'Kill Connection
FTPconn.Cancel