Thank's Nadya and Borislav
I noe put this in the flags and it work fine
If Thisform.pTypeFich<>3
&& 0x200000 =longname
&& 0x200 = Multiselect
&& 0x80000 Use the Explorer-like open
.Flags = 0x200000+0x200+0x80000
Endif
Thanks again
Benoit.
>Just a SWAG, but it could be difference in some internal CommonDialog settings. Check Help on CommonDialog control, I'm sure, there is a property, which controls this behavior and you just need to explicitly set it.
>
>>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