Hi all,
I have an app that uses the ITC. I can authenticate with the server and download a file with no problems whatsoever.
But, When I try to upload an empty file to over write what was just downloaded it will not work.
Here is the code for downloading the file
And here is the code for trying to upload:
Basically when i try to upload it just sits there. I have tried to put a message box in that displys the icResponsecode, but it always comes back as 0.
I have been trying to get this to work for 2 days now and I am at my wits end.
Any help would be much appreciated.
Cheers
Symon
Everything has an answer, it's just knowing the right question to ask. !!!!
I have an app that uses the ITC. I can authenticate with the server and download a file with no problems whatsoever.
But, When I try to upload an empty file to over write what was just downloaded it will not work.
Here is the code for downloading the file
Code:
Sub fdload()
Form2.Inet1.Protocol = icFTP
Form2.Inet1.URL = "ipaddress"
Form2.Inet1.UserName = "username"
Form2.Inet1.Password = "password"
Form2.Inet1.Execute , "GET csv/app.csv o:\CSVAPP\app.csv"
Do While Not inetReady
DoEvents
Loop
Form2.Inet1.Execute , "CLOSE" ' Close the connection
End Sub
Private Function inetReady() As Boolean
inetReady = Not Form2.Inet1.StillExecuting
End Function
And here is the code for trying to upload:
Code:
Sub fuload()
Bimp.Inet2.Protocol = icFTP
Bimp.Inet2.URL = "ipaddress"
Bimp.Inet2.UserName = "username"
Bimp.Inet2.Password = "password"
Bimp.Inet2.Execute , "PUT" + App.Path + "\app.csv usr/home/d622wsnm/csv "
Do While Not inetReady
DoEvents
Loop
Bimp.Inet2.Execute , "CLOSE" ' Close the connection
End Sub
Private Function inetReady() As Boolean
inetReady = Not Bimp.Inet2.StillExecuting
End Function
Basically when i try to upload it just sits there. I have tried to put a message box in that displys the icResponsecode, but it always comes back as 0.
I have been trying to get this to work for 2 days now and I am at my wits end.
Any help would be much appreciated.
Cheers
Symon
Everything has an answer, it's just knowing the right question to ask. !!!!