Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 编程心得绝招› 实际编程 › 查看内容

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

1970-1-1 08:00| 发布者: 共享| 查看: 1663| 评论: 0

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

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

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

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

最新评论

相关分类