mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 02:12:14 +00:00
9 lines
343 B
VB.net
9 lines
343 B
VB.net
Module Com_Mkdir
|
|
Public Sub CreateDir(TheDirectory As String)
|
|
If IO.Directory.Exists(Console.CurrentDirectory + "\" + TheDirectory) Then
|
|
NewLine("Directory is already exists!")
|
|
Else
|
|
IO.Directory.CreateDirectory(Console.CurrentDirectory + "\" + TheDirectory)
|
|
End If
|
|
End Sub
|
|
End Module
|