Access爱好者--
所属分类: 实用代码 作者: 共享 更新日期:2003-10-6 16:36:56 阅读次数:128

如何用vba检查软驱是否有软盘


Private Sub 命令0_Click()
Dim Flag As Boolean
Flag = Fun_FloppyDrive("A:")
If Flag = False Then MsgBox "A:驱没有准备好,请将磁盘插入驱动器!", vbCritical
End Sub

Private Function Fun_FloppyDrive(sDrive As String) As Boolean
'-------------------------------
'函数:检查软驱中是否有盘的存在
'-------------------------------
On Error Resume Next
Fun_FloppyDrive = Dir(sDrive) <> ""
End Function

'这个函数也许不久的将来就成古董了,因为没有电脑有软驱了:)

--------------------------------------------------------------------------------
相关文章

没有相关文章


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链