Как определить, является ли путь относительным или абсолютным с VB Scripting Host

Question

Как определить, является ли путь относительным или абсолютным в скрипте Visual Basic.

В VBA я бы вызвал Win32 API-функцию PathIsRelative

Private Declare Function PathIsRelative Lib "shlwapi" _
    Alias "PathIsRelativeA" _
   (ByVal pszPath As String) As Long

Однако это не такможно вызвать DLL из VBS, поэтому я не могу использовать Win32 Api.

René

Answer 1

set oFSO = CREATEOBJECT("Scripting.FileSystemObject")

relativePath = ""
absolutePath = "c:\test"

MsgBox UCase(relativePath) = UCase(oFSO.GetAbsolutePathName(relativePath))
MsgBox UCase(absolutePath) = UCase(oFSO.GetAbsolutePathName(absolutePath))

Answer 2

Может быть, так будет выглядеть лучше:

FUNCTION IsPathAbsolute( testedPath)

set oFSO = CREATEOBJECT("Scripting.FileSystemObject")

IsPathAbsolute = UCASE( testedPath) = UCASE( oFSO.GetAbsolutePathName( testedPath))

Answer 3

dim position
position = InStr("your-path", ":")

If position > 0 Then
  ''# absolute path
else
  ''# relative path
end if