topic Re: How use GetCurrentDirectory in Software Archive

How use GetCurrentDirectory

jschomaker — Sat, 13 Apr 2002 05:55:37 GMT

Would someone write all the code required to use the function GetCurrentDirectory? I cannot find any samples in any of the documentation or users guides. I've tried various things that don't work, such as:
Integer inum, ret
character*20 adirectory

ret = GetCurrentDirectory (inum, adirectory)

I don't get any compilation errors, it just doesn't work.
Thanks.

Re: How use GetCurrentDirectory

Jugoslav_Dujic — Sat, 13 Apr 2002 19:27:48 GMT

First argument is length of character buffer:

IF (GetCurrentDirectory(LEN(aDirectory), aDirectory)) THEN 
    !Strip trailing char(0) 
    aDirectory = aDirectory(1 : INDEX(aDirectory, CHAR(0)))

Re: How use GetCurrentDirectory

Jugoslav_Dujic — Sat, 13 Apr 2002 19:32:12 GMT

...of course, aDirectory should probably be far more than 20. In general, you should use constant MAX_PATH (=260).

Re: How use GetCurrentDirectory

Jugoslav_Dujic — Sat, 13 Apr 2002 19:35:01 GMT

Bah, sorry for 3rd message, "Edit" button doesn't work -- I forgot .GT.0 in the first post.

Re: How use GetCurrentDirectory

jschomaker — Tue, 16 Apr 2002 00:45:51 GMT

Jugoslav,
Thank you!! It worked perfectly. You are GREAT. Do you know where in the documentation I could find examples of using this (or any) function? Thanks Again!

Re: How use GetCurrentDirectory

Steven_L_Intel1 — Tue, 16 Apr 2002 01:56:21 GMT

There are dozens of examples using Win32 APII routines provided with CVF. There's also the new book Compaq Visual Fortran: A Guide to Creating Windows Applications.

Steve