Thank you Sergey.

7518s

Agnes
>Hi Agnes,
>
>You can try the Common Dialog Control. The code below is for demonstration purpose only. See Appropriate license for this class not found error at runtime
>
>

>oDlg = Createobject("PutFileEx")
>? oDlg.PutFile()
>
>DEFINE CLASS PutFileEx AS form
>	Left = 100   && Set Dialog Position by positioning the form
>	Top = 100    && Set Dialog Position
>	Name = "PutFileEx"
>	DoCreate = .T.
>	Visible = .F.
>	cFileSelected = ""
>	lUserCancel = .F.
>	
>	ADD OBJECT oCDC AS OleControl WITH ;
>		OleClass = "MsComDlg.CommonDialog"
>
>	PROCEDURE oCDC.Init
>		This.CancelError = .T. 	
>	ENDPROC 	
>
>	PROCEDURE Error
>		LPARAMETERS nError, cMethod, nLine
>		IF nError = 1429
>			This.lUserCancel = .T.
>		ENDIF
>	ENDPROC 
>
>	PROCEDURE PutFile(tnInitColor)
>		Thisform.oCDC.ShowSave()
>		IF This.lUserCancel
>			This.cFileSelected = ""
>		ELSE	
>			This.cFileSelected = Thisform.oCDC.FileName
>		ENDIF
>		RETURN This.cFileSelected 				
>	ENDPROC 	
>ENDDEFINE
>

>>
>>is there a way to use something like putfile that keeps the casing of the filename?
>>
>>PUTFILE always returns uppercase, what is a bit boring.
>>
>>TIA
>>
>>Agnes