dim n as integer
    With listbox
        For n = 0 To .ListCount - 1
            .Selected(n) = True 'oder eben false
        Next n
    End With

dim n as integer
    With listbox
        For n = 0 To .ListCount - 1
                If .Selected(n) = True Then
                    ... 'Dein Code, also entweder removeitem oder mit .list(n) 
                    ' die Dateien woandershin kopieren oder weiteres
                endif
        next n