spawn69
19 de Septiembre del 2003

necesito identificar un archivo de la unidad del cd-rom,se como hacerlo poniendo una letra de unidad predefinida por mi pero si la meto en otro ordena k tenga como unidad lectora otra letra diferente ya no tira,asik necesito algo para k el programa buske la unidad del cd-rom automaticamente y pueda leer el cd
gracias

sdemingo
19 de Septiembre del 2003

Pequeño ejemplillo by sdemingo
Espero que te sirva.... ;-)

Dim fs as Object
Dim unidad As Drive

Set fs = CreateObject("Scripting.FileSystemObject")

For Each unidad In fs.Drives
If unidad.IsReady = True Then
Select Case unidad.DriveType
Case CDRom
' Aquí está tu CD ROM
' Haces lo que tengas que hacer
Case Fixed
' Disco Duro
Case Removable
' Disketera
End Select
End If
Next


Un saludo

sdemingo