Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Keep filename case / PutFile
Message
From
11/08/2009 04:42:03
 
 
To
11/08/2009 02:34:27
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01417254
Message ID:
01417264
Views:
81
This message has been marked as a message which has helped to the initial question of the thread.
>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
	
Gregory
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform