Public Function MakePathAbsolute( _
ByVal vPath As Variant _
) As Variant Assuming
CurDir$ = "C:\WINDOWS"
for example
MakePathAbsolute("WIN.INI") = "C:\WINDOWS\WIN.INI"
MakePathAbsolute("\WIN.INI") = "C:\WIN.INI"
MakePathAbsolute("C:WIN.INI") = "C:\WINDOWS\WIN.INI"
MakePathAbsolute("C:\WIN.INI") = "C:\WIN.INI"
MakePathAbsolute("C:\TEMP\.\WIN.TMP") = "C:\TEMP\WIN.TMP" ' #5
MakePathAbsolute("C:\TEMP\..\WIN.TMP") = "C:\WIN.TMP" ' #6See also: IsPathRelative FunctionvPath: The path name that is to be made absolute. Function returns Null if vPath is Null or cannot be fixed-up to a string.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.