
Crew .NET |
|
Als eerste zet je alle beschikbare drives in een dropdownlist (vanuit het Page_Load event
For Each drive As String In Directory.GetLogicalDrives()
lijst_drives.Items.Add(drive)
'lijst_drives is het ID van de DropDownList
Next drive
For Each drive As String In Directory. GetLogicalDrives() lijst_drives. Items. Add(drive) 'lijst_drives is het ID van de DropDownList
Zorg dat je een knop hebt en zet dit in het event van die knop:
Dim file_system_object As New FileSystemObject
Dim gekozen_drive As Drive = _
file_system_object.GetDrive(lijst_drives.SelectedItem.ToString)
If gekozen_drive.IsReady And gekozen_drive.DriveType = CDROM Then
Response.Write(gekozen_drive.Path)
Else
Response.Write("Drive niet klaar of geen CD-ROM drive gekozen")
End If
Dim gekozen_drive As Drive = _ file_system_object.GetDrive(lijst_drives.SelectedItem.ToString) If gekozen_drive.IsReady And gekozen_drive.DriveType = CDROM Then Response.Write(gekozen_drive.Path) Else Response.Write("Drive niet klaar of geen CD-ROM drive gekozen") End If
Dit stuk code zorgt ervoor dat het type van de gekozen drive wordt opgehaald en als de drive klaar is en van het type CDROM is, geeft hij het pad weer, anders een foutmelding...
Succes!  |