Private Sub Command1_Click() MsgBox IIf(Dir(Dir1.Path & "\books", vbDirectory) <> "", "有", "无"), vbInformationEnd Sub
代码写好了,你试试看!!!Private Sub Command1_Click()If Dir(dir1.Path & "\book") <> "" ThenMsgBox "ok"End IfEnd Sub