Well, I tried and tried again, and I've understood where the problem was: when the path is absolute, the Command$ is quoted, otherwise it isn't. The PathIsRelative checks correctly the path only if it isn't quoted.
So within this function:
I solved a problem xDCode:Function IsRelative(Path As String) As Boolean Path = Replace(Path, Chr(34), vbNullString) IsRelative = (PathIsRelative(Path) And Not Len(Path) = 0)) End Function




Reply With Quote