Error in funcctions Include

[César Pérez Álvarez]

We have the follow directories structure:
c:\dir\include_in_dir.tol
c:\dir\dir2\file2.tol
c:\dir\file1.tol
c:\include.tol

The code in file include_in_dir.tol is:
"Set Include("dir2/file2.tol");"

The code in file include.tol is:
"Set Include("dir/file1.tol");"

The code in file file1.tol and file2.tol is not relevant in this case.
If we compile include_in_dir.tol there is not a problem, but if we compile include.tol
we obtain the follow error:
"
ERROR: No se puede abrir el fichero dir/file1.tol
NO Ha sido incluído el fichero dir/file1.tol
Ha sido incluído el fichero C:/include.tol"

[danirus]

GetFilePath() method must consider if it's working under Windows, to add a slash
at end of returned path, only in the case which files of root directory are
specified.

Example posted by César Pérez now works ok.

[danirus]

After last correction, next code fails under all platforms:
Set Include("\codefile.tol");
A new condition has just been added in order to support two cases:
1- under windows: paths without unit letters
2- under unix/linux: files located in root directory