From 1d1722345b99abe7f52e999994ccb3e088cbd3c2 Mon Sep 17 00:00:00 2001 From: EverythingWindows Date: Sat, 19 Nov 2022 06:54:01 +0700 Subject: Rename function implemented --- .../TerminalApplications/Internal/Com_Rename.vb | 34 ++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 ShiftOS-TheRevival/TerminalApplications/Internal/Com_Rename.vb (limited to 'ShiftOS-TheRevival/TerminalApplications') 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 -- cgit v1.2.3