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