mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 18:22:17 +00:00
14 lines
444 B
VB.net
14 lines
444 B
VB.net
|
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
|