35 lines
1.4 KiB
VB.net
35 lines
1.4 KiB
VB.net
Namespace ScriptVersion2
|
|
|
|
Partial Class ScriptComparer
|
|
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
' Contains the <filesystem> constructs.
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
|
|
Private Shared Function DoFileSystem(ByVal subClass As String) As Object
|
|
Dim command As String = GetSubClassArgumentPair(subClass).Command
|
|
Dim argument As String = GetSubClassArgumentPair(subClass).Argument
|
|
|
|
Select Case command.ToLower()
|
|
Case "pathsplit"
|
|
Dim index As Integer = int(argument.Remove(argument.IndexOf(",")))
|
|
Dim folderpath As String = argument.Remove(0, argument.IndexOf(",") + 1)
|
|
|
|
Dim folderSplits() As String = folderpath.Split(CChar("\"))
|
|
|
|
Return folderSplits(index)
|
|
Case "pathsplitcount"
|
|
Return argument.Split(CChar("\")).Length
|
|
Case "pathup"
|
|
Dim folderPath As String = argument
|
|
If folderPath.Contains("\") = True Then
|
|
Return folderPath.Remove(folderPath.LastIndexOf("\"))
|
|
End If
|
|
End Select
|
|
|
|
Return DEFAULTNULL
|
|
End Function
|
|
|
|
End Class
|
|
|
|
End Namespace |