Private Sub Timer1_Timer()
    If run = True Then Exit Sub
    run = True
    Dim Datei As String
    For i = 0 To File1.ListCount - 1
    Datei = File1.List(i)
    If InStr(1, Datei, ".part") And Not (InStr(1, Datei, ".part1")) Then GoTo _
      uberspringen
 
    If Datei = "" Then Label1.Caption = "Warte auf Archive...": Exit Sub
        On Error Resume Next
        Ordner = Left(Datei, Len(Datei) - 4)
        MkDir A_Pfad & "\" & Ordner
        ChDir A_Pfad & "\" & Ordner
        On Error GoTo 0
 
        Label1.Caption = "Archive " & Datei & " wird entpackt..."
        DoEvents
        RARExecute OP_EXTRACT, A_Pfad & "\" & Datei, PW
        ChDir A_Pfad
        FileCopy A_Pfad & "\" & Datei, EA_Pfad & "\" & Datei
        Kill A_Pfad & "\" & Datei
uberspringen:
    Next i
    File1.Refresh
    DoEvents
    Label1.Caption = "Warte auf Archive..."
    run = False
End Sub