Delphi-Quellcode:
r := FindFirst('C:\voctester_tmp\Vocabularies\Deutsch\*.TXT', faAnyFile,SearchRec);
while r = 0 do
begin
MeDelVoks.Lines.Add(SearchRec.Name);
DeleteFile(SearchRec.Name+'C:\voctester_tmp\Vocabularies\Deutsch\');
{Error Code?}
if not DeleteFile(SearchRec.Name) then
ShowMessage(SysErrorMessage(GetLastError));
Klappt aber nicht.
Danke euch allen ich suche morgen weiter
@Luckie:
Danke für deine Geduld und deine Strategie ;D