jessy_musik
Mitglied
Hallo
Ich möchte in einer DirListBox einen Ordner löschen
Mein Programm sieht bisher so aus:
Private Sub Löschen_Click()
Dim fso As Variant
Set fso = CreateObject("Scripting.FileSystemObject")
Pfad = fso.deleteFolder(Ordner.Path)
End Sub
Das Problem ist jetzt das der Ordner nicht sofort gelöscht wird. Erst wenn man den Pfad ändert indem man einen anderen Ordner anklickt oder das Laufwerk ändert wird der Ordner gelöscht.
Ich habe es schon mit refresh probiert aber das hilft nicht.
Hat vielleicht jemand eine idee wie ich den Pfad der DirListBox neu einlesen kann?
Vielen Dank
Ich möchte in einer DirListBox einen Ordner löschen
Mein Programm sieht bisher so aus:
Private Sub Löschen_Click()
Dim fso As Variant
Set fso = CreateObject("Scripting.FileSystemObject")
Pfad = fso.deleteFolder(Ordner.Path)
End Sub
Das Problem ist jetzt das der Ordner nicht sofort gelöscht wird. Erst wenn man den Pfad ändert indem man einen anderen Ordner anklickt oder das Laufwerk ändert wird der Ordner gelöscht.
Ich habe es schon mit refresh probiert aber das hilft nicht.
Hat vielleicht jemand eine idee wie ich den Pfad der DirListBox neu einlesen kann?
Vielen Dank