>Hi all,
>
>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

Agnes,


Have a look at the TestDialog() method of class _comdlg in ffc\_system.vcx

	set classlib to "d:\tmp\vfp9\ffc\_system" additive
	
	obj = createobject('_comdlg')
	obj.AddFilter("Text files", '*.txt')
	obj.cTitlebarText = 'Where do you want to put the file Agnes ?'
	obj.cFileName = "default"
	obj.cInitialDirectory = "d:\tmp\Streams"
	obj.cDefaultExtension = 'txt'
	obj.lSaveDialog = .t.
	obj.showdialog()
	
	if( m.obj.nFileCount < 1 )
		? 'nothing there'
	else
		?addbs(m.obj.cFilePath) + m.obj.aFileNames[1]
	
	endif