blob: 74f8e2099a2dcf7837dce79674afa1f4187fac86 (
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
|
Imports System.IO
Module Com_Copy
Public CopyString As String
Public Sub Copy()
'CopyString = RawCommand
If RawCommand Like "copy '*' '*'" Then
Dim CopyEXE() As String = RawCommand.Split("''")
Dim DestFile As String = CopyEXE(2)
NewLine(DestFile)
DestFile.Replace("!", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\ShiftOS\ShiftFS")
CopyEXE(2) = DestFile
NewLine(CopyEXE(2) & "\" & CopyEXE(1))
If File.Exists(Console.CurrentDirectory & "\" & CopyEXE(1)) = True Then
If Directory.Exists(CopyEXE(2)) = True Then
NewLine(Console.CurrentDirectory & "\" & CopyEXE(1))
File.Copy(Console.CurrentDirectory & "\" & CopyEXE(1), CopyEXE(2) & "\" & CopyEXE(1))
End If
End If
End If
End Sub
End Module
|
