vbDavidall
Apr 3rd, 2000, 10:20 PM
Hi
I am trying to download a file from my own ftp site using OpenURL. I added the Inet control to the form and entered the following code. If I download a small binary file the system connects to the ftp site and everything seems fine, but the "C:\TEMP\TEST.ID" file is 0 bytes. On other binary files I get a Type Mismatch error on the "B()=..." line. Can anyone help?????
Thanks
Dave
Dim b() As Byte
Dim strURL As String
Inet1.AccessType = icUseDefault
strURL = "ftp://dallcock.austin.ibm.com/davidall.id"
b() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\Temp\test.id" For Binary Access Write As #1
Put #1, , b()
Close #1
MsgBox "Done"
I am trying to download a file from my own ftp site using OpenURL. I added the Inet control to the form and entered the following code. If I download a small binary file the system connects to the ftp site and everything seems fine, but the "C:\TEMP\TEST.ID" file is 0 bytes. On other binary files I get a Type Mismatch error on the "B()=..." line. Can anyone help?????
Thanks
Dave
Dim b() As Byte
Dim strURL As String
Inet1.AccessType = icUseDefault
strURL = "ftp://dallcock.austin.ibm.com/davidall.id"
b() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\Temp\test.id" For Binary Access Write As #1
Put #1, , b()
Close #1
MsgBox "Done"