求助删除Dir1控件中选中的文件夹的代码执行删除前判断这个文件夹中是否有文件[解决办法]Option ExplicitPr
求助删除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