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"

{ renvois True si le nom de fichier est valide }
function IsValidFilename(const FileName : string) : boolean;
var
  n : integer;
const
  fbd = ['\','/',':','*','?','"','<','>','|'];
begin
  for n := 1 to Length(FileName) do
  begin
    result := not (FileName[N] in fbd);
    if not result then
      exit;   
  end;
end;

{ retourne FileName avec tout les caracteres invalides remplacés par underscore "_" }
function SafeValidFilename(const FileName : string) : string;
var
  pBOut : ^byte;
const
  fbd = [$22,$2a,$2f,$3a,$3c,$3e,$3f,$5c,$7c];
begin
  result := filename;
  pBOut:= @Result[1];
  while pBOut^ <> $0 do
  begin
    if pBOut^ in fbd then
      pBOut^ := $5f;
    inc(pBOut);
  end;
end;

private static bool IsValideFileName(string FileName) {
  char[] InvalidFileNameChars = System.IO.Path.GetInvalidFileNameChars();
  foreach (char InvalidFileNameChar in InvalidFileNameChars)
    if (FileName.Contains(InvalidFileNameChar.ToString()))
      return false;
  return true;
}
private static string ConvertToValideFileName(string FileName, char RemplaceChar) {
  char[] InvalidFileNameChars = System.IO.Path.GetInvalidFileNameChars();
  foreach (char InvalidFileNameChar in InvalidFileNameChars)
    if (FileName.Contains(InvalidFileNameChar.ToString()))
      FileName = FileName.Replace(InvalidFileNameChar, RemplaceChar);
  return FileName;
}

Private Function IsValideFileName(ByVal FileName As String) As Boolean
  Dim InvalidFileNameChars() As Char = System.IO.Path.GetInvalidFileNameChars()
  For Each InvalidFileNameChar As Char In InvalidFileNameChars
    If FileName.Contains(InvalidFileNameChar.ToString()) Then Return False
  Next
  Return True
End Function
Private Function ConvertToValideFileName(ByVal FileName As String, ByVal RemplaceChar As Char) As String
  Dim InvalidFileNameChars() As Char = System.IO.Path.GetInvalidFileNameChars()
  For Each InvalidFileNameChar As Char In InvalidFileNameChars
    If FileName.Contains(InvalidFileNameChar.ToString()) Then FileName = FileName.Replace(InvalidFileNameChar, RemplaceChar)
  Next
  Return FileName
End Function