Fehler bei bestimten ordner löschen
Steve
Habe ein kleines problem.
Ich möchte einen ordner umbenennen aber bekomme immer einen fehler, da habe ich mir gedacht das ich einen neuen ordner anlege mit dem neuen namen und den alten dan lösche.
Das anlegen funktioniert aber das löschen nicht, bekomme immer den fehler das ich keine autorisierung zum löschen habe.
Aber wenn ich alle unterordner lösche in einem ordner kann ich den ordner löschen.
Ich versuchte den ordner so zu löschen:
Sub Del_Dir(OpOldDirName)
Dim sPathOld As String
Dim oFSO As Object
sPathOld = ThisWorkbook.Path & OpOldDirName
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFolder sPathOld
Set oFSO = Nothing
End Sub
Auch beim umbenennen habe ich wahrscheinlich das gleiche problem, aber da bekomme ich einen anderen fehler. Das umbenennen versuchte ich in versciedene varianten "Name x as y" oder rename...
Besten Dank
Steve