Pfad einer DirListBox neu einlesen

[jessy_musik]

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

 

[ANI]

Hallo Jessy,

hier mein Vorschlag:

Private Function GetNewFolder(Path As String)
Dim NewFolder$
NewFolder = Mid(Path, 1, InStrRev(Path, "\") - 1)
If Dir(NewFolder, vbDirectory) <> "" Then
GetNewFolder = NewFolder
End If
End Function

'Dieser Aufruf erfolgt nach dem Löschen des Ordner's

Set fso = CreateObject("Scripting.FileSystemObject")
Pfad = fso.deleteFolder(Ordner.Path)

Ordner.Path = GetNewFolder(Ordner.Path)


ANI

 

[jessy_musik]

Hallo ANI

Vielen Dank für deinen Vorschlag. Ich hab das gerade ausprobiert und das funktioniert echt gut .
Also vielen vielen Dank

jessy_musik