File Loader

[CrimeTime]

Hallo Community,
ich habe mir vor einigen Wochen einen File Loader gebastelt , doch er will nicht so recht funktionieren wie ich es mir vorgestellt habe , ich hatte mir es so gedacht das man in die Text Box Links rein macht , und dann auf start drückt und er dann ein Ordner erstellt und dann halt alle links abgeht und alles runter ladet. aber was er macht ist im Moment total falsch , im Moment wenn in der Text Box links drinnen sind und er startet dann macht der einfach Leere Dateien und bringt dir halt in den passenden Ordner ... hier mal der Code der source

Private Sub Command1_Click()
On Error Resume Next
Dim spil() As String
Dim a As Integer
Dim b As Integer
Dim spliter() As String
Dim loc As String
Text1 = Replace(Text1, "Folder Name", version)
Text1 = Replace(Text1, "images.domain.de", host)
spil = Split(Text1, vbNewLine)
For a = 0 To UBound(spil) - 1
spliter = Split(spil(a), "/")
loc = ""
For b = 0 To UBound(spliter) - 1
loc = loc & spliter(b) & "/"
DoEvents
Next b
MkDir App.Path & "\" & version
GetFile loc, spliter(UBound(spliter)), App.Path & "\" & version
DoEvents
Next a
MsgBox ("Downloading Finished!")
End Sub

Private Function GetFile(Location As String, filename As String, saveto As String) As Boolean
On Error Resume Next
Dim name As String
Dim name2 As String
Dim bData() As Byte
Dim intFile As Integer
name = Location & filename
name2 = saveto & "\" & filename
Me.Caption = "Downloading: " & filename
If Dir(name2) = filename Then GetFile = False: Exit Function
intFile = FreeFile()
bData() = Form1.Inet1.OpenURL(name, icByteArray)
Open name2 For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
GetFile = True
End Function

hoffe jemand weiß weiter

 

[CrimeTime]

hat niemand ne idee?