Code - Visual Basic Research Center

~ Edito ~

12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

~ Annuaire VB ~

~ Partenaires ~

Retour à la liste des fonctions

Fonction : NomFichierValide
Vérifie que le nom d'un fichier ne comporte pas de caractères invalides, et en retourne un correct le cas échéant.
(Consulté 19374 fois.)

Private Function NomFichierValide(stNom As String, _
Optional stReplace As String = vbNullString) As String
' Suppression des caractères interdits dans un nom de fichier
' stNom est le nom du fichier à vérifier
' stReplace est le caractère mis en remplacement des caractères
' interdit qui seront trouvés.
stNom = Replace(stNom, "\", stReplace)
stNom = Replace(stNom, "/", stReplace)
stNom = Replace(stNom, ":", stReplace)
stNom = Replace(stNom, "*", stReplace)
stNom = Replace(stNom, "?", stReplace)
stNom = Replace(stNom, "<", stReplace)
stNom = Replace(stNom, ">", stReplace)
stNom = Replace(stNom, "|", stReplace)
stNom = Replace(stNom, """", stReplace)
' Retourne la nouvelle valeur
NomFichierValide = stNom
End Function

Retour à la liste des fonctions