![]() |
Verzeichnisse löschen
Hi,
versuche ein Unterverzeichnis mit Delphi zu löschen. Weiß jemand wie? Gruß, Bechti |
hi
mit dem Befehl RemoveDir(ordner_mit_Pfad) kannst du ein Verzeichnis löschen |
Danke,
habe aber vergessen zu erwähnen, daß ich Verzeichnisse mit Inhalt löschen möchte |
dann dürfte das mit dieser Funktion gehen:
Delphi-Quellcode:
Viel Spass damit!
function DelDir(dir: string): Boolean;
uses ShellApi; ... var fos: TSHFileOpStruct; begin ZeroMemory(@fos, SizeOf(fos)); with fos do begin wFunc := FO_DELETE; fFlags := FOF_SILENT or FOF_NOCONFIRMATION; pFrom := PChar(dir + #0); end; Result := (0 = ShFileOperation(fos)); end; [edit]Delphi-Codetags eingefügt. Mfg. Gérome[/edit] |
Vielen Dank.
Allerdings kann ich hiermit nicht das gewünschte Verzeichnis, sondern nur dessen inhalt löschen. Wenn ich z.b. als Dir = 'd:\test\2002' eingebe, löschte er nicht "2002" sondern alles was darunter liegt. Möchte aber gerne "2002" und alles darunter löschen. |
Hallo,
dann schreib doch nach der Funktion noch RemoveDir()... GRüsse, Daniel :hi: |
Zitat:
Zitat:
Code:
aufrufst. Was du nicht machen darfst, ist
DelDir('d:\test\2002')
Code:
Dabei wird nur der Inhalt gelöscht, der Ordner "2002" selbst bleibt zurück.
DelDir('d:\test\2002\*.*')
|
Re: Verzeichnisse löschen
hmm, ich danke erstmal für den programmcode der löschfunktion, und möchte noch eine frage anhängen.
manchmal ist der Ordner komplett gelöscht, manchmal ist er nur leer. So richtig schlüssig wann welcher fall eintritt ist es irgendwie nicht. aber häufig tritt der fall auf, wenn ich zB viele kleine dateien verschiedenen typs habe (4000 files, ings 70MB). |
Re: Verzeichnisse löschen
vllt liegt das daran ob der Ordnername ein abschliessendes backslash ('\') enthält oder nicht.
|
Re: Verzeichnisse löschen
also wenn man ein abschliessendes "\" übergibt, dann löscht er nichts.
|
Re: Verzeichnisse löschen
Vielleicht sollte man einen Aufruf von
![]() mfG mirage228 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:04 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz