求助删除Dir1控件中选中的文件夹的代码
执行删除前判断这个文件夹中是否有文件
[解决办法]

Option Explicit

Private Sub Command1_Click()
    If Dir(Dir1.List(Dir1.ListIndex) & "\*.*") = "" Then
        RmDir Dir1.List(Dir1.ListIndex)
        Dir1.Refresh
    End If
End Sub