Die Ergänzung zu CheckFilename

[Dostej]

Ich habe ne kleine Routine geschrieben, die mir die falschen Zeichen in einem Pfad gegen "_" austauscht. Nix riesiges...

Code: Alles auswählen

Procedure.s KorrigiereFileName(Pfad_S.s) ; ersetzt ungültige zeichen mit "_"
  *P.Byte = @Pfad_S
  For x = 0 To Len(Pfad_S)-1
    ; Debug Str(*P\b) + " - " + Chr(*P\b)
    If *P\b < 32 Or *P\b = 34 Or *P\b = 42 Or *P\b = 47 Or *P\b = 58 Or *P\b = 60 Or *P\b = 62 Or *P\b = 63 Or *P\b = 92 Or *P\b = 124
      *P\b = 95 ; _  ersetzen
    EndIf
    *P +1
  Next
  ProcedureReturn Pfad_S
EndProcedure