Slet bestemte mapper

Sub sletMappe()
Dim slet
On Error Resume Next          '<<<<
  Set slet = CreateObject("Scripting.FileSystemObject")
  slet.DeleteFolder "C:\testing\sletMig*", True
End Sub

Husk at tilføje referencen Microsoft Scripting Runtime i VB, ellers vil det ikke virke

supertekst > Damm var det kun den ene linie. Smid et svar :-)


Tak for hjælpen

Og bemærk at ved On Error resume Next ignorere du ALLE potientielle fejl. Måske skulle du tjekke err.number der svarer til at mappen ikke findes, og så kun Resume Next hvis det er netop den fejl. Bare en bemærkning

Det får du - og selv tak....

Hej.

"On Error Resume Next" ER en fristende kode at anvende, når noget ikke vil makke ret.
Som Martin skriver kan du teste på fejlkode, jeg har ikke lige tjek på hvilken, der handler om mapper, der ikke findes, måske er det "53 File not found"
Du kan også afstille at der udføres "resume" ved at sætte linien  "On error goto 0" efter de kommandoer, der sletter mapper.  Så hænger der ikke en "spring over fejl".

I et af mine projekter tester jeg på om en mappe findes.  Kunne ikke huske hvilket, så jeg søgre i stedet på "Eksperten" og fandt et spørgsmål, jeg har svaret på i 2004

If Len(Dir(brandsti, vbDirectory)) > 0 Then
        filemp3.Path = brandsti
      Else
        X = MsgBox("Den sti der er angivet til depot for brænding eksisterer ikke.", 48, "Medd. fra 'opstart musikdatabase'.")
  End If

http://www.eksperten.dk/spm/438025