G
Guest
Using GetOpenFilename with MultiSelect set to True, when you select files
using the <Shift> key they become highlighted and the last in the selection
also has a dashed border. In xl2002, the name of the file with the dashed
border apparently becomes the first element in the array even if it is the
last in the selection. The remainder are listed according to their order in
the folder. This is a departure from xl2000 and is screwing up a project of
mine.
I don't have xl2002 at home and can't double-check it. The above conclusion
was arrived at on Friday using a computer at work that had a program of mine
that was screwing up. The code I used to check it follows. Hoping somehow I
am confused or someone has a simple fix for this. Otherwise I have to create
a clunky patch.
Best regards,
Greg
Sub Test()
Dim FNs As Variant
Dim i As Long
With Application
FNs = .GetOpenFilename("Picture files(*.jpg), *.jpg", _
MultiSelect:=True)
End With
If TypeName(FNs) = "Boolean" Then Exit Sub
For i = LBound(FNs) To UBound(FNs)
MsgBox FNs(i)
Next
End Sub
using the <Shift> key they become highlighted and the last in the selection
also has a dashed border. In xl2002, the name of the file with the dashed
border apparently becomes the first element in the array even if it is the
last in the selection. The remainder are listed according to their order in
the folder. This is a departure from xl2000 and is screwing up a project of
mine.
I don't have xl2002 at home and can't double-check it. The above conclusion
was arrived at on Friday using a computer at work that had a program of mine
that was screwing up. The code I used to check it follows. Hoping somehow I
am confused or someone has a simple fix for this. Otherwise I have to create
a clunky patch.
Best regards,
Greg
Sub Test()
Dim FNs As Variant
Dim i As Long
With Application
FNs = .GetOpenFilename("Picture files(*.jpg), *.jpg", _
MultiSelect:=True)
End With
If TypeName(FNs) = "Boolean" Then Exit Sub
For i = LBound(FNs) To UBound(FNs)
MsgBox FNs(i)
Next
End Sub