OVH Cloud OVH Cloud

Caractères refusés dans un nom de fichier

1 réponse
Avatar
Robert Parise
À partir d'une descrioption de projet, j'ai une programmation qui cré un
fichier dans un répertoire. À l'occasion, les utilisateurs introduise un
caractère qui n'est pas accepter comme nom de fichier. Ma programmation
ci-dessous détecte ces caractères, sauf le caractère " guillemet

Comment introduire le symbole " dans ma programmation comme les symboles
: < > * etc

If InStr(1, Me!txtDescription, "\") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre
projet. "")"
ElseIf InStr(1, Me!txtDescription, "/") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre projet
"")"
ElseIf InStr(1, Me!txtDescription, ":") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre projet
"")"
ElseIf InStr(1, Me!txtDescription, "*") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre projet
"")"
ElseIf InStr(1, Me!txtDescription, "?") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre projet
"")"
ElseIf InStr(1, Me!txtDescription, "/") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre projet
"")"
ElseIf InStr(1, Me!txtDescription, "<") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre projet
"")"
ElseIf InStr(1, Me!txtDescription, ">") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre projet
"")"
End If


Merci de votre aide

Robert

1 réponse

Avatar
Marc ROBY
Bonjour,

Utilisez [= Chr(34)] pour faire votre test sur le caractère ["]
Bien cordialement à vous,
--
Marc ROBY - CAPCODE Conseil
http://www.capcode-conseil.fr/

"Robert Parise" a écrit dans le message de
news: 2GFef.32005$
À partir d'une descrioption de projet, j'ai une programmation qui cré un
fichier dans un répertoire. À l'occasion, les utilisateurs introduise un
caractère qui n'est pas accepter comme nom de fichier. Ma programmation
ci-dessous détecte ces caractères, sauf le caractère " guillemet

Comment introduire le symbole " dans ma programmation comme les symboles
: < > * etc

If InStr(1, Me!txtDescription, "") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre
projet. "")"
ElseIf InStr(1, Me!txtDescription, "/") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre
projet "")"
ElseIf InStr(1, Me!txtDescription, ":") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre
projet "")"
ElseIf InStr(1, Me!txtDescription, "*") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre
projet "")"
ElseIf InStr(1, Me!txtDescription, "?") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre
projet "")"
ElseIf InStr(1, Me!txtDescription, "/") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre
projet "")"
ElseIf InStr(1, Me!txtDescription, "<") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre
projet "")"
ElseIf InStr(1, Me!txtDescription, ">") > 0 Then
Eval "MsgBox ("" Vous avez un symbole refusé dans le nom de votre
projet "")"
End If


Merci de votre aide

Robert