|
ÈçºÎÓÃ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 'Õâ¸öº¯ÊýÒ²Ðí²»¾ÃµÄ½«À´¾Í³É¹Å¶ÁË£¬ÒòΪûÓеçÄÔÓÐÈíÇýÁË£º£©
--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
ûÓÐÏà¹ØÎÄÕÂ
|
