Hej.  Enklast är att använda FileSystemObject's. Vilket du får tillgång till om du lägger till en referens till "Microsoft Scripting Runtime".söka igenom en cd...
    
    
Någon som har en aning om hur man på lättast sätt söker igenom en cd och tar reda på "Volume Label" på CDn?
Tjo!
/erskeSv: söka igenom en cd...
    
    
Här är ett tilet exempel:
<code>
Option Explicit
Private Sub ListFiles(Folder As Folder, ListBox As ListBox)
Dim File As File
Dim SubFolder As Folder
    For Each File In Folder.Files
        ListBox.AddItem File.Path
    Next
    For Each SubFolder In Folder.SubFolders
        ListFiles SubFolder, ListBox
    Next
End Sub
Private Sub Command1_Click()
Dim FSO As FileSystemObject
Dim Drive As Drive
    Set FSO = New FileSystemObject
    
    For Each Drive In FSO.Drives
        If Drive.DriveType = CDRom Then
            Label1.Caption = Drive.VolumeName
            ListFiles Drive.RootFolder, List1
            Exit For
        End If
    Next
End Sub
</code>