question about Progress : SEARCH COMMAND

[chipke]

Hello,

I want to check if a certain directory exist with the SEARCH function. I tried the following code:
DEFINE VARIABLE cPath AS CHARACTER NO-UNDO.
cPath = SEARCH("e:\test\").
MESSAGE cPath VIEW-AS ALERT-BOX.

RETURNS ?

DEFINE VARIABLE cPath AS CHARACTER NO-UNDO.
cPath = SEARCH("e:\test").
MESSAGE cPath VIEW-AS ALERT-BOX.

returns ?

I tried it with directorys inside my propath and outside. What is wrong?

Kind regards,
Tom

 

[joey.jeremiah]

search( ) only works on files


try -

file-info:file-name = "e:\test".

if file-info:full-pathname <> ? then
message "Directory exists" view-as alert-box.

else
message "Directory does not exist" view-as alert-box.

 

[chipke]

Thanks! It works like a charm!


Kind regards,
Tom

 

[tamhas]

For future use you might want to check out the directory tools on the PEG utilities page http://www.peg.com/utilities.html

 

[lord_icon]

Greetings,
The SEARCH operation will NOT find directories that is why an unknown is returned.
The search operation will search the propath for files ONLY.
Choi

 

[chipke]

For future use you might want to check out the directory tools on the PEG utilities page http://www.peg.com/utilities.html

Thanks, I'll check.

 

[sridevi.stalin]

Dear Chipke,
I've given one sample pgm for, if v know the file name, but want the directory of the filename, then the bellow sample may help....

DEFINE VARIABLE lcDir AS CHARACTER INITIAL "X(70)" NO-UNDO.
DEFINE VARIABLE lcFileName AS CHARACTER NO-UNDO.
ASSIGN lcFileName = "PrintImage.p".
IF SEARCH(lcFileName) <> ? THEN
DO :
lcDir = SEARCH(lcFileName).
MESSAGE ENTRY(1, lcDir, lcFileName) VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
in the above pgm,
the lcFileName is searched with in our application - propath.
if the specified file name is not in the propath, then shows nothing.

 

[chipke]

Dear Chipke,
I've given one sample pgm for, if v know the file name, but want the directory of the filename, then the bellow sample may help....

DEFINE VARIABLE lcDir AS CHARACTER INITIAL "X(70)" NO-UNDO.
DEFINE VARIABLE lcFileName AS CHARACTER NO-UNDO.
ASSIGN lcFileName = "PrintImage.p".
IF SEARCH(lcFileName) <> ? THEN
DO :
lcDir = SEARCH(lcFileName).
MESSAGE ENTRY(1, lcDir, lcFileName) VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
in the above pgm,
the lcFileName is searched with in our application - propath.
if the specified file name is not in the propath, then shows nothing.

Thanks But what will you do when you have a pathname and you only want to have the directory or the filename?

Kind regards,
Tom

 

[joey.jeremiah]

The Hive

www.oehive.org