Get files off of the web easily with this sub (uses Inet Control)
This sub will allow you to downloaded files off of the web by making one call. The syntax will look sometime to this effect: Call GetInternetFile(Inet1, "http://www.fakeURL.com/~yup/picture.jpg", "c:\temp")
AI
Riepilogo AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Codice sorgente
Public Sub GetInternetFile(Inet1 As Inet, myURL As String, DestDIR As String) ' Written by: Blake Pell Dim myData() As Byte If Inet1.StillExecuting = True Then Exit Sub myData() = Inet1.OpenURL(myURL, icByteArray) For X = Len(myURL) To 1 Step -1 If Left$(Right$(myURL, X), 1) = "/" Then RealFile$ = Right$(myURL, X - 1) Next X myFile$ = DestDIR + "\" + RealFile$ Open myFile$ For Binary Access Write As #1 Put #1, , myData() Close #1 End Sub
Commenti originali (3)
Recuperato da Wayback Machine