I've got a problem with one user of a program of mine. Nobody else has reported it and I can't duplicate it. Here's what he's reporting.
The program issues a GetOpenFileName request to get user input of a file name. This is working correctly for me and seemingly for other users.
On his system the Common dialogue box does not appear at all. If he minimizes the main app and restores it the box will appear.
I'm not aware of any obvious flags etc. which may affect this action in the dialogue request.
The program is pretty basic PBWin 8.01, the code is pretty standard.
Anyone have thoughts?
George
The program issues a GetOpenFileName request to get user input of a file name. This is working correctly for me and seemingly for other users.
On his system the Common dialogue box does not appear at all. If he minimizes the main app and restores it the box will appear.
I'm not aware of any obvious flags etc. which may affect this action in the dialogue request.
The program is pretty basic PBWin 8.01, the code is pretty standard.
Anyone have thoughts?
George
Code:
IF Cmd = "" THEN ' If something left, assume a FileName
ofnFileName ="AllFiles" ' Setup for Common Dialog call
ofnInitDir = FileDir '
ofnFilter = "All Files (*.*)" + CHR$(0) + "*.*" + CHR$(0) + CHR$(0)
ofnDefExt = "txt" '
ofnTitleName = "Select Filename to be Copied"'
DoingMsg = %True ' Tell KB hook to ignore for a while
IF GetOpenFilename(ofn) = %False THEN '
DoingMsg = %False ' Tell KB hook to restart
CALL scError(%eFail, "File Selection Cancelled") ' No selection? Bail out
pCommand = Blanks '
EXIT SUB '
ELSE '
DoingMsg = %False ' Tell KB hook to restart
Cmd = TRIM$(ofnFileName) ' Get the filename
END IF '
END IF ' Non-blank Cmd, assume a FileName
Comment