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