# 如果只有一台光碟机的话, 以上做法是对的 (无内文)

Posted by 纪文和 on August 20, 1999 at 20:47:41:

In Reply to: Re: 如何侦察磁碟机存在... posted by Yizu on August 20, 1999 at 16:18:17:

: : 请教高手：

: : 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:

- Re: 但是有二台以上(烧录机及一般光碟机)怎么办?(无内文) 阿雄 09:02:34 8/21/99 (1)
  - 查一下 cww 10:24:30 8/21/99 (0)