Paul Newton wrote on 2017-05-04:
> Hi all
>
> Users are complaining that when running the following code more than
once, GetFile() displays the contents of the folder the user last browsed to
despite the code changing the default directory to the My Documents folder
before calling GetFile(). I simply do not see how this could happen but I
have had the issue demonstrated to me and I have seen it with my own eyes
.... I am completely stumped and cannot reproduce the problem myself.
>
> FWIW this is a VFP9 app running under Windows 10
>
> #Define CSIDL_PERSONAL 0x0005
> Local lcDocumentsPath, lcOriginalPath
> lcOriginalPath = SET("Default") + SYS(2003)
> lcDocumentsPath = Space(255)
> Declare SHORT SHGetFolderPath In SHFolder.Dll ;
> INTEGER hwndOwner, Integer nFolder, Integer hToken, ;
> INTEGER dwFlags, String @pszPath
> SHGetFolderPath(0, CSIDL_PERSONAL, 0, 0, @lcDocumentsPath)
> lcDocumentsPath = Alltrim(lcDocumentsPath)
> Set Default To (lcDocumentsPath)
> ? GetFile()
> SET DEFAULT TO (lcOriginalPath)
>
> Any ideas anybody?
>
> Thanks
>
> Paul Newton
>
Paul,
Only chance that would happen is when the lcDocumentsPath is empty.
Tracy Pearson
PowerChurch Software
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
