Ta bort filer från vald mapp

Här i detta tips visas hur vi kan ta bort filer av en viss filtyp, såsom med filändelsen xls, från en användarvald mapp.

Tipset finns ej tillgängligt för hämtning.

Option Explicit  Sub Ta_Bort_Filer()    '© 2002 Alla rättigheter XL-Dennis    Dim stMedd As String    Dim stSokVag As String, stTemp As String    Dim obMapp As Object      stMedd = "Ange önskad mapp för borttagning av filer:"      'Skapar och visar dialogrutan "Browse For Folder".    Set obMapp = CreateObject("Shell.Application").BrowseForFolder(0, stMedd, &H1)      'Hämtar in det valda alternativet från användaren.    If Not obMapp Is Nothing Then       'Användaren har valt en mapp och klickat på OK-knappen.       stSokVag = obMapp.self.Path & "\"    Else       'Användaren har klickat på avbryt-knappen.       Exit Sub    End If      'Bekräftelse på att borttag ska ske eller ej.    If Not MsgBox("Vill du ta bort alla Excel-filer i " & _          vbCrLf & stSokVag, vbInformation) = vbYes Then Exit Sub      'Definierar vilken filtyp som ska eftersökas och tas bort.    stTemp = Dir(PathName:=stSokVag & "*.xls")      'Loopar igenom mappen och tar bort de önskade filerna.    Do While stTemp <> ""       Kill stSokVag & stTemp       stTemp = Dir    Loop  End Sub