4
Ordner inkl Dateien und Unterordner mit VBA löschen
Hi,
ich suche nach einer Möglichkeit einen Ordner zu löschen inkl Dateien und Unterordnern...
bei rmdir sagt er mir, dass er nicht die rechte hätte (wenn noch Dateien im Ordner liegen).
mit Kill *.* löscht er die unterordner nicht, welche ggf. noch vorhanden sein könnten...
eine Idee wäre noch mit wscript gewesen
wsse.Exec("cmd rmdir pfad/zum/ordner")
Hat jemand eine praktikable Idee für mich?
=> das ganze soll in excel funktionieren
Vielen Dank
ich suche nach einer Möglichkeit einen Ordner zu löschen inkl Dateien und Unterordnern...
bei rmdir sagt er mir, dass er nicht die rechte hätte (wenn noch Dateien im Ordner liegen).
mit Kill *.* löscht er die unterordner nicht, welche ggf. noch vorhanden sein könnten...
eine Idee wäre noch mit wscript gewesen
wsse.Exec("cmd rmdir pfad/zum/ordner")
Hat jemand eine praktikable Idee für mich?
=> das ganze soll in excel funktionieren
Vielen Dank
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 339289
Url: https://administrator.de/contentid/339289
Printed on: April 26, 2024 at 08:04 o'clock
4 Comments
Latest comment
Hi,
nimm Robocopy.
Erstell einen leeren Ordner.
Starte CMD voll eleviert.
Führe aus
Das ganze kann man natürlich auch aus einer VBS starten. Dann jedoch die VBS voll eleviert ausführen.
E.
Edit: Ach so, übersehen. VBA in Excel. Dann eben Excel voll eleviert starten ("als Administrator ausfühen").
nimm Robocopy.
Erstell einen leeren Ordner.
Starte CMD voll eleviert.
Führe aus
robocopy LeererOrdner ZielOrdner /B /MIRE.
Edit: Ach so, übersehen. VBA in Excel. Dann eben Excel voll eleviert starten ("als Administrator ausfühen").
Moin,
ich habe bei Google auf den ersten Seiten gut ein Dutzend verschiedener Ansätze zu dem Thema gefunden. Was stimmt an denen deiner Meinung nach nicht?
Gruß
ich habe bei Google auf den ersten Seiten gut ein Dutzend verschiedener Ansätze zu dem Thema gefunden. Was stimmt an denen deiner Meinung nach nicht?
Gruß
Servus,
Wenn doch
Grüße Uwe
bei rmdir sagt er mir, dass er nicht die rechte hätte (wenn noch Dateien im Ordner liegen)
wenn dein Account wirklich nicht genügend Rechte zum Löschen hat dann, so wie @emeriks sagt, per runas "elevated" einen Dummy-Ordner drüber bügeln.strFolder = "D:\Testordner"
Set shell = CreateObject("Shell.Application")
shell.ShellExecute "cmd","/c md ""%temp%\dummy"" & robocopy ""%temp%\dummy"" """ & strFolder & """ /B /MIR /W:1 /R:1 & rd """ & strFolder & """",,"runas",0 strFolder = "D:\Testordner"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder strFolder, True
Wenns das dann war, den Beitrag bitte noch auf gelöst setzen, und Lösungen markieren. Merci.