General information
Category:
Coding, syntax & commands
Hi all
I Use the commondialog to retreive multiple files If I run my app with WIn98se it work fine But IN Win2000 it cut the file name to 8 car. I use the same app with two different machine
My code look like this
With Thisform.oComm
If Thisform.pTypeFich <> 3
** MULTISELECT
.Flags = 0x200+0x8000
Endif
.DialogTitle ="Sélection des fichiers "
Do case
case thisform.ptypefich = 1
.Filter = "Facture IN*.*|IN*.*"
case thisform.ptypefich = 2
.Filter = "Banque PA*.*|PA*.*"
case thisform.ptypefich = 3
.Filter = "Liste de prix PL*.*|PL*.*"
Otherwise
.Filter = "All Files *.*|*.*"
endcase
.FilterIndex = Thisform.pTypeFich
.Filename = ""
.InitDir = lInitDir
.ShowOpen
lcFileName = Upper(.Filename)
EndWith
Thank's for your time !
Benoit
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only