http://www.csdn.net/expert/Topic/116/116075.shtm
请您看一下Private Sub Command1_Click()
On Error GoTo 100
RmDir "D:\aa"
MkDir "D:\aa"
MsgBox "D:\aa" & "文件夹为空!"
Exit Sub
100
MsgBox "D:\aa" & "文件夹为非空或不存在!"
End Sub
请您看一下Private Sub Command1_Click()
On Error GoTo 100
RmDir "D:\aa"
MkDir "D:\aa"
MsgBox "D:\aa" & "文件夹为空!"
Exit Sub
100
MsgBox "D:\aa" & "文件夹为非空或不存在!"
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货