如何删除VB.net上的多个文件夹

Question

I have a code here but it doesn't work.

Dim folderExists As Boolean
    folderExists = My.Computer.FileSystem.DirectoryExists(Directory.GetCurrentDirectory())

    If folderExists = True Then
        Directory.Delete(folderExists & "\LOG", True)
        Directory.Delete(folderExists & "\logfile", True)

        MsgBox("Logs deleted", vbInformation)
    Else
        MsgBox("Logs doesn't exists!")
    End If

I want to delete folders and all the files inside them.

Answer 1

Try this:

Dim folder = Directory.GetCurrentDirectory()
Dim folderExists As Boolean = (My.Computer.FileSystem.DirectoryExists(folder &"\LOG") And My.Computer.FileSystem.DirectoryExists(folder &"\logfile"))
If folderExists Then
    Directory.Delete(folder & "\LOG", True)
    Directory.Delete(folder & "\logfile", True)
    MsgBox("Logs deleted", vbInformation)
Else
    MsgBox("Logs doesn't exists!")
End If

Update - The folderExists now checks for both folders. Credit to @David Wilson for pointing that out.

Answer 2

As an update to the answer fron @farhamanam -

Dim folder = Directory.GetCurrentDirectory()
Dim folderExists As Boolean = (My.Computer.FileSystem.DirectoryExists(folder &"\LOG") and My.Computer.FileSystem.DirectoryExists(folder &"\logfile"))
If folderExists Then
    Directory.Delete(folder & "\LOG", True)
    Directory.Delete(folder & "\logfile", True)
    MsgBox("Logs deleted", vbInformation)
Else
    MsgBox("Logs don't exist!")
End If

If this works, give @farham the answer vote - Farham, you might want to edit your code to include this