Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Valid filename
Message
De
09/03/2011 03:20:50
Dragan Nedeljkovich (En ligne)
Now officially retired
Zrenjanin, Serbia
 
 
À
08/03/2011 21:43:00
Neil Mc Donald
Cencom Systems P/L
The Sun, Australie
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Divers
Thread ID:
01502980
Message ID:
01502986
Vues:
56
>>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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform