Alle Dateien im Ordner in eine Datei schreiben

Hi,

Ich habe z.b. einen Ordner mit ca. 1000 Textdateien. Ich will von allen Dateien in einem Ordner die Dateinamen (ohne dateiendung) in eine Memo einfügen. Also alle Dateinamen auflisten. Wie geht das ?

MFG

Suche mal im Forum nach FindFirst, FindNext

Die Dateinamen kannst du so 'beschneiden'

Dateiname:=Stringreplace(Extractfilename(Searchrec .Filename,ExtractfileExt(Searchrec.Filename),'');

**Christian Seehase**

Moin Äfan,

Dateiname := ChangeFileExt(SearchRec.Name,'');

Alle Dateien im Ordner in eine Datei schreiben

Alle Dateien im Ordner in eine Datei schreiben

Re: Alle Dateien im Ordner in eine Datei schreiben

Re: Alle Dateien im Ordner in eine Datei schreiben

Forumregeln

Äfan (Gast) n/a Beiträge	#1 Alle Dateien im Ordner in eine Datei schreiben 9. Jan 2005, 23:44 Hi, Ich habe z.b. einen Ordner mit ca. 1000 Textdateien. Ich will von allen Dateien in einem Ordner die Dateinamen (ohne dateiendung) in eine Memo einfügen. Also alle Dateinamen auflisten. Wie geht das ? MFG
	Zitat

jensw_2000 (Gast) n/a Beiträge	#2 Re: Alle Dateien im Ordner in eine Datei schreiben 10. Jan 2005, 00:03 Suche mal im Forum nach FindFirst, FindNext Die Dateinamen kannst du so 'beschneiden' Dateiname:=Stringreplace(Extractfilename(Searchrec .Filename,ExtractfileExt(Searchrec.Filename),'');
	Zitat

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.117 Beiträge Delphi 11 Alexandria	#3 Re: Alle Dateien im Ordner in eine Datei schreiben 10. Jan 2005, 12:54 Moin Äfan, Dateiname := ChangeFileExt(SearchRec.Name,''); Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat