Suben henter filer ned fra en webserver
Men hvis det er en mov fil virker det ikke så download den kun en lille bid
hvorfor det ??
Kan man lave om på kode så det kan lade sig gøre at hente hele filerne ??
Public Sub GetInternetFile(Inet1 As Inet, myURL As String, DestDIR As
String)
Dim fso As New FileSystemObject
Dim s As TextStream
Dim myData() As Byte
Dim X, RealFile$, myFile$
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$
Set s = fso.CreateTextFile(myFile$, True, True)
s.Write myData()
s.Close
End Sub
|