I'm trying to open the Common Dialog box to allow the user to navigate
to a folder and select a file. The users are accessing the
application on a single Citrix server, so the enviroment is the same
for everyone. This function has been in place for several months and
there haven't been any problems until about a week ago. One of my
clients is no longer able to open the common dialog box. The
application does not throw an error, but the box does not open. I've
copied a section of code below and described what is happening below
the code:
--------------
1 OpenFile.lStructSize = Len(OpenFile)
2 OpenFile.hwndOwner = strform.Hwnd
3 sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0)
4 OpenFile.lpstrFilter = sFilter
5 OpenFile.nFilterIndex = 1
6 OpenFile.lpstrFile = String(257, 0)
7 OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
8 OpenFile.lpstrFileTitle = OpenFile.lpstrFile
9 OpenFile.nMaxFileTitle = OpenFile.nMaxFile
10 OpenFile.lpstrInitialDir = "C:\"
11 OpenFile.lpstrTitle = "Select File to Link"
12 OpenFile.flags = 0
13 lReturn = GetOpenFileName(OpenFile)
14 If lReturn <> 0 Then
15 LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1,
OpenFile.lpstrFile, vbNullChar) - 1))
16 End If
-----------
When it reaches the line 13 the dialog box should open and the code
will be suspended until a selection is made and the box is close. If
Cancel is clicked then a 0 is returned. However, on this one person's
computer the dialog box does not open and a 0 is returned. The only
thing I can come up with is that there's something in her Citrix
profile that is causing this to occur. Any ideas?
Thanks,
Alisha