Sub SetValidFile(ByRef sFile As String, Optional ByVal sReplace As String = "_") ' sReplace doit contenir un seul caractère (valide) Const sForbidden As String = "\/:*?""<>|" Dim i As Integer If (Not LenB(sReplace) = 2) Or (InStrB(1, sForbidden, sReplace)) Then sReplace = "_" If LenB(sFile) Then For i = 1 To LenB(sFile) Step 2 If InStrB(1, sForbidden, MidB$(sFile, i, 2)) Then MidB$(sFile, i, 2) = sReplace Next i End If End Sub ' ' ' ===================== ' EXEMPLE D'UTILISATION ' ===================== ' Dim sFile As String sFile = "mon fichier?de dest*ination|.txt" Call SetValidFile(sFile) ' sFile contient alors "mon fichier_de dest_ination_.txt"
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.