In my app, I need the user to pick a file, anywhere on his computer. My idea
was to use the CommonFileDialog instruction, built-in with the App environment
of Window-Eyes.
To get a pointer to the "my Computer" special folder of the current system, I
used the following line:
Dim ComputerTree: ComputerTree = FS.GetAbsolutePathName( CreateObject(
"Shell.Application" ).Namespace( 17 ))
But this one, returns the following path:
C:\Program Files\GW Micro\Window-Eyes\My Computer
A folder that does not exist, and definitely does not open right at the root fo
the computer. Using this return in the following line:
Dim Filename: Filename = CommonFileDialog( True, "Find Your File",,
ComputerTree, "Any File (*.*),*.*", 1, "*.*", cfdfEnableDialogResizing
+cfdfUseExplorerStyleInterface +cfdfUseLongFileNames)
Sure, the Common File Dialog opens. But it opens in the User Profile Folder, of
Window-Eyes.
Does anyone have a solution, for how to have the File Dialog open from the
bottom of "My Computer"? Will also do, if it opened right at the Desktop of the
current user. From here, the user will have to browse to the location of his
file. Since the file can litterally be placed anywhere on the actual system, it
is somehow silly to start deep down in the file hiracki - like in the User
Profile Folder of the screen reader.
Thanks for any feedback.
Any code samples are welcome as well.
