📄 17622.html

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

💻 HTML

字号:

<html>  <head>    <title>如果只有一台光碟机的话, 以上做法是对的 (无内文)</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>如果只有一台光碟机的话, 以上做法是对的 (无内文)</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:jwh@ms1.hinet.net">纪文和</a> on August 20, 1999 at 20:47:41:<p>In Reply to: <a href="17582.html">Re: 如何侦察磁碟机存在...</a> posted by Yizu on August 20, 1999 at 16:18:17:<p>: : 请教高手：<p>: : EXE档烧入光碟上用执行档<p>: : 如果我在VB里另一个档（硬碟上）如何呼叫光碟上EXE档执行<br>: : 因为光碟不定期有E:\、F:\、或G:\等等，有可能最大Z:\<br>: : 如何撰写自动侦察读到光碟上EXE档，谢谢<p>: Set Fso = New FileSystemObject<br>: Set Drvs = Fso.Drives<br>: For Each vDrive In Drvs<br>:     If vDrive.DriveType = CDRom Then<br>:           CDROMDrive = vDrive.DriveLetter	<br>:           '--光碟机代号<br>:     End If<br>: Next<p>: Set Fso = New FileSystemObject<br>: Set Drvs = Fso.Drives<br>: For Each vDrive In Drvs<br>:     If vDrive.DriveType = CDRom Then<br>:           CDROMDrive = vDrive.DriveLetter	<br>:           '--光碟机代号<br>:     End If<br>: Next<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17622--><!--top: 17643--><li><a href="17643.html">Re: 但是有二台以上(烧录机及一般光碟机)怎么办?(无内文)</a> <b>阿雄</b> <i>09:02:34 8/21/99</i>(<!--responses: 17643-->1)<ul><!--insert: 17643--><!--top: 17650--><li><a href="17650.html">查一下</a> <b>cww</b> <i>10:24:30 8/21/99</i>(<!--responses: 17650-->0)<ul><!--insert: 17650--></ul><!--end: 17650--></ul><!--end: 17643--></ul><!--end: 17622--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -