Hi,
I am using the Internet Transfer Control to download a file from a website.
The download works fine but I also need to delete the file on the website and upload a new file.
The app seems to get stuck on the delete command.
This is the code i am using.
Any help would be greatly appreciated.
cheers
Symon.
Everything has an answer, it's just knowing the right question to ask. !!!!
I am using the Internet Transfer Control to download a file from a website.
The download works fine but I also need to delete the file on the website and upload a new file.
The app seems to get stuck on the delete command.
This is the code i am using.
Code:
Sub fuload()
Bimp.Inet2.Protocol = icFTP
Bimp.Inet2.URL = "80.88.192.200"
Bimp.Inet2.UserName = "eu7hnbg554fr"
Bimp.Inet2.Password = "db911709sn"
Bimp.Inet2.Execute , "DELETE csv/app.csv"
Do While Not inetReady
DoEvents
Loop
Bimp.Inet2.Execute , "PUT" + App.Path + "\app.csv csv/app.csv "
Do While Not inetReady
DoEvents
Loop
Bimp.Inet2.Execute , "CLOSE" ' Close the connection
MsgBox "Application File Successfully Purged.", vbExclamation
End Sub
Private Function inetReady() As Boolean
inetReady = Not Bimp.Inet2.StillExecuting
End Function
Any help would be greatly appreciated.
cheers
Symon.
Everything has an answer, it's just knowing the right question to ask. !!!!