How to delete the folder if the folder exist

[matrik02]

I would like to delete the folder if the folder exist.. How to do that?

  Dim FSO As Object
    Set FSO = CreateObject("scripting.filesystemobject")
KrigProjectPath = interpolProjWorkspace + "\" + TxtKrigRasterWorkspace.Text
If FSO.FolderExists(KrigProjectPath) = True Then
     Exit Sub
End If

[Hack]

If Dir$("c:\hack", vbDirectory) <> vbNullString Then
   Kill ("c:\hack\*.*")
   RmDir ("c:\hack")
Else
   MsgBox "directory does not exist"
End If

[matrik02]

How to delete all files in the folder?

[Hack]

I posted an example of that.

[matrik02]

Kill ("c:\hack\*.*")
RmDir ("c:\hack")


Which one that delete the folder and delete the files?

[Nitesh]

if your using FSO, then do it like this. I just did the same thing today ,

Dim oFolder As scripting.Folder
Dim oFile As scripting.File
Dim fso As scripting.FileSystemObject

Set fso = New FileSystemObject


If fso.FolderExists("c:\temp\EmailAttachments") Then
     Set oFolder = fso.GetFolder("c:\temp\EmailAttachments")
    On Error Resume Next
    For Each oFile In oFolder.Files
        oFile.Delete True  'setting force to true
                        'deletes read-only file
    Next
endif

to delete folder use same principle with:

ofolder.delete

[Hack]

Kill ("c:\hack\*.*")
RmDir ("c:\hack")


Which one that delete the folder and delete the files?

Kill deletes the files. RmDir Removes the Directory.