Textdatei erstellen

[5etH]

Hallo Zusammen,

ich würde gerne eine .txt Datei erstellen, dann prüfen ob diese schon da ist, dass er sie nicht überschreibt, sodass der inhalt nicht weg ist.

kennt ihr da eine Procedur oder Function die dem entspricht ?

wenn ja bitte posten

danke schonmal

euer manu


EDIT:

also mit der procedur erstellt er mir nur einen ordenr der DB.txt heist...

Delphi-Quellcode:

sDir := 'c:\DB\DB.txt';;
//if sDir path does not exist, create it!
if NOT DirectoryExists(sDir) then
  ForceDirectories(sDir);