VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用FileSystemObject检测光驱的盘符
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9991, 日期:2001-02-27
Detect a target system注释:s CD-ROM drive letter with VB注释:s FileSystemObject

The drive letter associated with a CD-ROM drive is one of those dynamic
properties that can change from machine to machine. If your program
relies on reading files from a CD-ROM drive, you can注释:t always count on
this drive being the same letter from system to system. Fortunately,
the FileSystemObject library, included in the Scrrun.dll file provides
the perfect solution.

The FileSystemObject library represents the hierarchical directory
structure of the current computer. The FileSystemObject is the top-
level object within the file hierarchy, and you create an instance of
it just like you would with any other object variable:

Set fso = New Scripting.FileSystemObject

Within it, the structure cascades as you注释:d expect, from Drives to
Folders (including the convenient Subfolders) to Files.

Of course, for purposes of determining the CD-ROM drive letter, we注释:re
only concerned with the Drive object. This object exposes the DriveType
property, which indicates, among others, if the drive is removable,
fixed, networked, or a CD-ROM. To find the CD-ROM drive on the target
machine all your code need do is cycle through the available drives
then test the DriveType property, like so:

Dim CDPath as String
Private Sub Form_Load()
Dim fso As New Scripting.FileSystemObject
Dim drv As Drive

For Each drv In fso.Drives
     If drv.DriveType = CDRom Then
          CDPath = drv.Path
          Exit For
     End If
Next drv
Set drv = Nothing
Set fso = Nothing
End Sub