diff options
Diffstat (limited to 'ShiftOS-TheRevival/TerminalApplications/Internal')
| -rw-r--r-- | ShiftOS-TheRevival/TerminalApplications/Internal/Com_Rename.vb | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Rename.vb b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Rename.vb new file mode 100644 index 0000000..43c79a1 --- /dev/null +++ b/ShiftOS-TheRevival/TerminalApplications/Internal/Com_Rename.vb @@ -0,0 +1,34 @@ +Imports System.IO + +Module Com_Rename + Public ShouldRename As Boolean + + Public Sub Rename() + Dim Names() As String = command.Split("''") + If Names(1) = "" Then + NewLine("No filename has been inputted") + ShouldRename = False + ElseIf Names(1) Like " *" Then + NewLine("Filename cannot be started with spaces") + ShouldRename = False + Else + ShouldRename = True + End If + If Names(3) = "" Then + NewLine("No new filename has been inputted") + ShouldRename = False + ElseIf Names(3) Like " *" Then + NewLine("Filename cannot be started with spaces") + ShouldRename = False + Else + ShouldRename = True + End If + If ShouldRename = True Then + If File.Exists(Console.CurrentDirectory & "\" & Names(1)) = True Then + FileSystem.Rename(Console.CurrentDirectory & "\" & Names(1), Console.CurrentDirectory & "\" & Names(3)) + Else + NewLine("File is not exist") + End If + End If + End Sub +End Module |