mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 10:12:16 +00:00
10 lines
343 B
VB.net
10 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
|