📄 6069.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>Re: 请问如何得知磁碟机是否已ready?</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 请问如何得知磁碟机是否已ready?</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:letsgo@ms6.url.com.tw">老怪</a> on September 27, 1998 at 21:13:49:<p>
In Reply to: <a href="6000.html">请问如何得知磁碟机是否已ready?</a> posted by Jordan on September 25, 1998 at 07:58:21:<p>
: 例如现在的光碟机是否有disc或 A: 是否有磁片??<p>Private Sub Command1_Click()<br>Dim OldPath As String<p>    On Error Resume Next<br>    OldPath = CurDir<br>    ChDrive "a:"<br>    Select Case Err.Number<br>        Case 68<br>            MsgBox Err.Description, vbOKOnly, "错误代码：" & Err.Number<br>    End Select<p>    ChDrive OldPath<p>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 6069-->
</ul><!--end: 6069-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -