Option Explicit
 
Const sServer As String = "SERVER (FTP)"   'ftp.microsoft.com
Const sUser As String = "USER"                     'nutzer
Const sPass As String = "PASS"                     'passwort
 
Dim sServerUpdate As String
 
 
Private Function DownloadNewVersion(ParamArray vFiles() As Variant)
On Error GoTo err
 
    Dim i As Long
    Dim xy As Long
    Dim s As String
    Dim sFile As String
    Dim lPercent As Long
    Dim lRealSize As Long
    Dim sTempShort As String
    Dim sTempLong As String
    Dim sGetString As String
 
    sTempLong = "c:\Temp"   ' Download Dir
    sTempShort = "c:\Temp"  ' evtl. 'Short Path Name'
 
    For xy = 0 To UBound(vFiles)
    sFile = vFiles(xy)
    If Dir(sTempLong & "\" & sFile) <> "" Then
        Kill sTempLong & "\" & sFile            ' Bereits bestehende Datei 
        ' löschen!
    End If
    sServerUpdate = sUser & ":" & sPass & "@" & sServer
    sGetString = "GET " & sFile & " " & sTempShort & "\" & sFile
    Inet1.UserName = sUser
    Inet1.Password = sPass
    Inet1.Execute sServerUpdate, "SIZE " & sFile
    Do While Inet1.StillExecuting: DoEvents: Loop
    lRealSize = Inet1.GetChunk(1024)
    Inet1.Execute sServerUpdate, sGetString
    Do While Inet1.StillExecuting
        If i Mod 1000 = 0 Then
            If Dir(sTempLong & "\" & sFile) <> "" Then
                lPercent = FileLen(sTempLong & "\" & sFile)
                lPercent = lPercent / Int((lRealSize / 100))
                If Command1.Caption <> lPercent & "%" Then
                    Command1.Caption = lPercent & "%"
                    Me.Caption = "Download zu " & lPercent & "% abgeschlossen."
                End If
            End If
            DoEvents
            i = 0
        End If
        i = i + 1
    Loop
    Next xy
 
    Command1.Caption = "Fertig..."
    Me.Caption = "Donwload abgeschlossen..."
 
    Exit Function
 
err:
MsgBox err.Description
End Function
 
Private Sub Command1_Click()
    DownloadNewVersion "file1.ext", "file2.ext"     ' and more . . .
End Sub

Ohne Mampf, kein Kampf !