| Pregunta: | 42353 - IDENTIFICAR UNIDAD DE CD-ROM Y LEER DATOS AUTOMATICAMENTE |
| Autor: | juan carlos sanchez |
| tengo un programa de fotos en el cual quiero que carge la imagen desde la unidad de cd rom, con la funcion load picture logicamente tengo que especificar la ruta ya sea d: e: como le puedo hacer para que automaticamnete reconozca la unidad y carge todo desde ahi, posiblemente pueda ser a traves de una libreria pero como soy novato no le he podido entender si me pudieran ayudar se los agradeceria | |
| Respuesta: | Mario Campos |
| Aqui te adjunto un proyecto de VB: descargar. | |
| Respuesta: | Heroe Exceso |
| Esta es la funcion que utilizo para saber que tipo de unidades tengo, tal vez te sirva.... Public Function Buscar_Unidad(Unidad_a_Obtener As Drives, Unidad_Obtenida As String) As Boolean Dim Fs As Object Dim Col_Unidades As Object Dim Unidad As Object Set Fs = CreateObject("Scripting.FileSystemObject") Set Col_Unidades = Fs.Drives For Each Unidad In Col_Unidades If Unidad.drivetype = Unidad_a_Obtener Then Select Case Unidad.drivetype Case 0: '"Unknown" Unidad_Obtenida = Unidad.DriveLetter Case 1: '"Removable" Unidad_Obtenida = Unidad.DriveLetter Case 2: '"Fixed" Unidad_Obtenida = Unidad.DriveLetter Case 3: '"Network" Unidad_Obtenida = Unidad.DriveLetter Case 4: '"CD-ROM" Unidad_Obtenida = Unidad.DriveLetter Case 5: '"RAM Disk" Unidad_Obtenida = Unidad.DriveLetter End Select Exit For End If Next Buscar_Unidad = Len(Unidad_Obtenida) > 0 Set Fs = Nothing Set Col_Unidades = Nothing Set Unidad = Nothing End Function | |