Udføre commando udfra valg på checkbox

Hej eksperter

Har bixet lidt kode sammen.. bla. med hjælp herfra..
Har lavet en listbox med checkbox som style.
Her henter jeg nogler biblioteksnavne ind.
Nu vil jeg så afkrydse en af linierne og klikke på min commandoknap for, at slette indholdet i denne mappe.
Men så skriver den FileNotFound.. men der ligger både mapper og filer i den valgte.
Skal jeg gøre det på anden måde ?
Og hvordan kan jeg udføre commandoen på flere ( hvis jeg flere 2 eller flere) ?
håber der er hjælpe derude....
vh thjoe

Commandoknap1
Private Sub Command1_Click()
Kill List1.Text & "\*.*"
End Sub

Private Sub Form_Load()
  strProfile = Environ$("ALLUSERSPROFILE")
  If Len(strProfile) Then
    strProfile = Mid$(strProfile, 1, InStrRev(strProfile, "\"))
  End If
  strName = Dir(strProfile, vbDirectory Or vbHidden Or vbSystem)
  Do While strName <> ""
    If strName <> "." And strName <> ".." Then
      If (GetAttr(strProfile & strName) And vbDirectory) = vbDirectory Then
              List1.AddItem CStr(strProfile & strName & "\Lokale indstillinger\temp")
      End If
    End If
    strName = Dir
  Loop
End Sub

Option Explicit
Dim strName As String
Dim strProfile As String