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>