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