Как удалить папку выбранную в DirListBox-е

[Stasjan]

Помогите
Пробовал использовать код:
----------------------------------------
Private Sub Command9_Click()

Dim myFSO As Object
Dim myFLDR As Folder
Dim dirName1, resp

Set myFSO = CreateObject("Scripting.FileSystemObject")

dirName1 = Dir1.List(Dir1.ListIndex) '

resp = MsgBox(" Удалить" & dirName1, vbYesNo + vbExclamation, _
"Подтверждение удаления")

If resp = vbYes Then

Set myFLDR = myFSO.DeleteFolder(dirName1)

End If
End Sub
------------------------------
Выдает ошибку
Подскажите что не так, и можно решить этот вопрос как нибудь по другому. (Нужно что бы удалялись как пустые папки так и папки с файлами). Заранее благодарен

[Stasjan]

Решение найдено!
-----------------------------------------------------------
Private Sub Command_Click()

Dim myFSO As Object
'Dim myFLDR As Folder
Dim dirName2, resp

Set myFSO = CreateObject("Scripting.FileSystemObject")

dirName2 = Dir2.List(Dir2.ListIndex)

resp = MsgBox(" Удалить " & dirName2, vbYesNo + vbExclamation, _
"Подтверждение удаления")

If resp = vbYes Then

myFSO.DeleteFolder (dirName2)

Dir1.Refresh
Dir2.Refresh
End If

End Sub

[Ruslan Demidow]

Код: Выделить всё

Option Explicit

Private Sub Command1_Click()
Dim myFSO As Object
Dim dirName1, resp
Set myFSO = CreateObject("Scripting.FileSystemObject")

dirName1 = Dir1.List(Dir1.ListIndex) '

resp = MsgBox(" Удалить" & dirName1, vbYesNo + vbExclamation, _
"Подтверждение удаления")

If resp = vbYes Then
    myFSO.DeleteFolder (dirName1)
End If

Dir1.Refresh

End Sub


При удалении не нужно задавать Set для удаляемого элемента. И такого объекта как Folder в VB, имхо, не существует.

[Stasjan]

Первоначальный текст (работа с FSO) я взял на сайте(каком не помню ), там было написанно именно так.

А насчет существования Folder? ведь при описании myFLDR as ( Folder - подставляется автоматически) или я нетак что-то понял.
А за ответ спасибо.

[Ruslan Demidow]

У меня не подставился. Может быть потому что я не делал ссылку в проекте на библиотеку объекта файловой системы (Microsoft Scripting Runtime (scrrun.dll))?
Точно. Из-за этого.

Если ставишь ссылку на эту библиотеку, тогда нужно просто указать
Dim myFSO as New FileSystemObject
и Folder будет подставляться.

и не нужно писать в коде
Set myFSO=CreateObject("Scripting.FileSystemObject") - лишнее объявление.

Если же объявлять через Set, тогда не нужно в ссылках проекта указывать библиотеку.
В общем или одно или другое.