Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Valid filename
Message
From
09/03/2011 03:20:50
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
 
 
To
08/03/2011 21:43:00
Neil Mc Donald
Cencom Systems P/L
The Sun, Australia
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
01502980
Message ID:
01502986
Views:
55
>>I have a backup menu dan the client can create his own backup filename.

I think NUL is missing from the list of no-nos.

>This is what we use, is was from Chris Lange I think
>
>********************************************************************
>FUNCTION lValidFileName( tcFileName )
>********************************************************************
>  LOCAL lcValidChars, lcUpperJustFileName
>
>  m.lcValidChars        = " ^'@{}[],=()+._-!$%&/#~1234567890ABCEDFGHIJKLMONPQRSTUVWXYZ"
>  m.lcUpperJustFileName = UPPER( JUSTFNAME(m.tcFileName) )
>
>    DO CASE
>	CASE EMPTY( m.lcUpperJustFileName )
>		RETURN .F.
>	CASE INLIST( JUSTSTEM(m.lcUpperJustFileName), "AUX", "COM1", "COM2", "COM3", "COM4", "CON", "LPT1", "PRN" ) 
>		RETURN .F.
>	CASE LEN( CHRTRAN( m.lcUpperJustFileName, m.lcValidChars, "" ) ) > 0
>		RETURN .F.
>	OTHERWISE
>		RETURN .T.
>    ENDCASE
>
>ENDFUNC 
>

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform