如何用vba检查软驱是否有软盘
Private Sub 命令0_Click() Dim Flag As Boolean Flag = Fun_FloppyDrive("A:") If Flag = False Then MsgBox "A:驱没有准备好,请将磁盘插入驱动器!", vbCritical End SubPrivate Function Fun_FloppyDrive(sDrive As String) As Boolean '------------------------------- '函数:检查软驱中是否有盘的存在 '------------------------------- On Error Resume Next Fun_FloppyDrive = Dir(sDrive) <> "" End Function '这个函数也许不久的将来就成古董了,因为没有电脑有软驱了:)
--------------------------------------------------------------------------------
相关文章
没有相关文章
|