Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ 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 ~
 Rechercher un site :
  

~ Partenaires ~

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é 18629 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
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr