Portability Function: Searches for a specified file in the directories listed in the path contained in the environment variable.
Module: USE IFPORT
Syntax
result = FINDFILEQQ (filename, varname, pathbuf)
filename
(Input) Character*(*). Name of the file to be found.
varname
(Input) Character*(*). Name of an environment variable containing the path to be searched.
pathbuf
(Output) Character*(*). Buffer to receive the full path of the file found.
Results
The result type is INTEGER(4). The result is the length of the string containing the full path of the found file returned in pathbuf, or 0 if no file is found.
Compatibility
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
See Also
FULLPATHQQ, GETFILEINFOQQ, SPLITPATHQQ
Example
USE IFPORT
CHARACTER(256) pathname
INTEGER(4) pathlen
pathlen = FINDFILEQQ("libfmt.lib", "LIB", pathname)
WRITE (*,*) pathname
END