📄 2798.html
字号:
<html>
<head>
<title>Re: 如何寻找光碟机所在路径?</title>
</head>
<BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
<center>
<h1>Re: 如何寻找光碟机所在路径?</h1>
</center>
<HR><p>
Posted by <a href="mailto:fann@tccm.edu.tw">刘柏泛</a> on May 10, 1998 at 17:53:06:<p>
In Reply to: <a href="2791.html"><b>如何寻找光碟机所在路径?</b></a> posted by snow on May 09, 1998 at 09:52:17:<p>
使用 Drive 物件<br>Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long<p>Private Sub Form_Load()<br>Dim I As Integer<br>Dim DriverPath As String<br>Dim ret As Long<p>For I = 0 To Drive1.ListCount<br> DriverPath = Left(Drive1.List(I), 2) + "\"<br> ret = GetDriveType(DriverPath)<br> If ret = 5 Then Drive1.ListIndex = I<br>Next I<br>End Sub<br>这样目录即会转至光碟机，程式的部份有问题请自行修改
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2798-->
</ul><!--end: 2798-->
<br><HR><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -