blob: 43c79a1ba2ad8ea0bced195505dee5ad8ac1b0f1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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
|
