ShiftOS-TheRevival/TerminalApplications/Internal/Com_Rmdir.vb


1
2
3
4
5
6
7
8
9
10
11
12
13

Module Com_Rmdir
    Public Sub RemoveDir(TheDirectory As String)
        If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then
            Try
                IO.Directory.Delete(Console.CurrentDirectory + "\" + TheDirectory)
            Catch ex As Exception
                NewLine(ex.Message)
            End Try
        Else
            NewLine("The directory is not exists!")
        End If
    End Sub
End Module