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;