求助删除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
