GetOpenFilename

[Bernhard Fomm]

GetOpenFilename starts with the parameter "ofn.InitialDir=CURDIR$" in the current folder.

How can GetOpenFilename open the workplace?

(The function "SHBrowseForFolder" starts also per default at the workplace.)

[Fred Harris]

Set ofn.InitialDir to the address of any fixed length string that contains a valid directory path, and that will be where the Open File Dialog Box opens...

Local szBuffer As Asciiz*256

szBuffer="C:\Documents And Settings\User\MyDocuments"

ofn.InitialDir=Varptr(szBuffer)

etc.

There are equates for the length of the buffer that can be used such as %MAX_PATH. Here is a tutorial on the open file dialog box...

http://www.jose.it-berater.org/smfforum/index.php?topic=1267.0

[Cliff Nichols]

How can GetOpenFilename open the workplace?

Bernard, can you expand on what you meant by "WorkPlace"? (Do you mean the current working folder? and NOT what M$ thinks is "CurDir"???) sort of thing.??

[Fred Harris]

I wasn't sure what Bernhard meant either with 'WorkPlace', but I decided to take a stab at a generic answer.

[Michael Mattias]

WRONG

szBuffer="C:\Documents And Settings\User\MyDocuments"

RIGHT:

LOCAL szBuffer AS ASCIIZ * %MAX_PATH, iret AS LONG

iRet = getSpecialFolderLocation BYVAL %NULL, %CSIDL_PERSONAL, BYVAL %NULL, %SHGFP_TYPE_CURRENT, szBuffer

IF iRet = %S_OK THEN
  szBUffer contains path for this user's "My Documents" folder
ELSE
   error handler...

[Bernhard Fomm]

I meant not "%CSIDL_PERSONAL". I meant with "workplace" --> "My Computer". (In German is this workplace = Arbeitsplatz.)

[Kev Peel]

Try CSIDL_DRIVES

[Michael Mattias]

CSIDL_PERSONAL, CSIDL_DRIVES, whatever.

My point was you should not hard-code a literal value for these special folders, since A) the name varies based on the user's language and B) they are moveable.

Moot if this application (not described) runs only on specific computers, but still a good habit to acquire.

[Fred Harris]

Here's a little program that dumps all the environment variables. Some of them contain useful 'informationen uber den arbeitsplatz'!

#Compile Exe
#Dim All

Function PBMain () As Long
  Local strData As String
  Register i As Long

  Console Set Screen 80,200
  Do
    Incr i
    strData=Environ$(i)
    Print Left$(strData,200)
  Loop While Len(strData)
  Waitkey$
  
  PBMain=0
End Function

[Bernhard Fomm]

Try CSIDL_DRIVES

Many Thanks!