# Re: 如何侦察磁碟机存在...

Posted by Yizu on August 20, 1999 at 16:18:17:

In Reply to: 如何侦察磁碟机存在... posted by 阿雄 on August 20, 1999 at 15:55:48:

: 请教高手：

: EXE档烧入光碟上用执行档

: 如果我在VB里另一个档（硬碟上）如何呼叫光碟上EXE档执行
: 因为光碟不定期有E:\、F:\、或G:\等等，有可能最大Z:\
: 如何撰写自动侦察读到光碟上EXE档，谢谢

Set Fso = New FileSystemObject
Set Drvs = Fso.Drives
For Each vDrive In Drvs
If vDrive.DriveType = CDRom Then
CDROMDrive = vDrive.DriveLetter
'--光碟机代号
End If
Next

Set Fso = New FileSystemObject
Set Drvs = Fso.Drives
For Each vDrive In Drvs
If vDrive.DriveType = CDRom Then
CDROMDrive = vDrive.DriveLetter
'--光碟机代号
End If
Next

Follow Ups:

- 如果只有一台光碟机的话, 以上做法是对的 (无内文) 纪文和 20:47:41 8/20/99 (2)
  - Re: 但是有二台以上(烧录机及一般光碟机)怎么办?(无内文) 阿雄 09:02:34 8/21/99 (1)
    - 查一下 cww 10:24:30 8/21/99 (0)