Este Este artículo contiene código de ejemplo de
Microsoft Visual Basic para aplicaciones que determina la letra de
la primera unidad de CD-ROM y que la devuelve a una variable como
una cadena. A continuación, se genera a un cuadro de mensaje. Esto
será útil para obtener acceso a archivos contenidos en un CD.
Volver
al principio
Microsoft proporciona ejemplos de la programación
sólo para ilustración sin la garantía que se expresa o implícito sin
la que se incluyen sin limitarse a las garantías implícitas de
comerciabilidad y/o idoneidad para un fin determinado. Este artículo
presupone que conoce el lenguaje de programación que se muestra y
las herramientas utilizadas para crear y depurar procedimientos.
Profesionales de soporte técnico de Microsoft pueden ayudar a
explicar la funcionalidad de un procedimiento determinado pero no se
modificará estos ejemplos para que proporcionen que agregó
funcionalidad o construyan procedimientos para satisfacer sus
necesidades específicas. Si tiene poca experiencia en programación,
quizá desee ponerse en contacto con un Microsoft Certified Solution
Partner o con la línea del servicio de consultoría que se ofrece,
mediante pago, llamando al Centro de Atención al Cliente de
Microsoft en el número 902 197 198 Para obtener más información
acerca de los Certified Partners, consulte el siguiente sitio Web de
Microsoft
Para
obtener más información acerca de las opciones de soporte técnico
disponibles y cómo ponerse en contacto con Microsoft, consulte el
siguiente sitio Web de Microsoft
Volver
al principio
Procedimiento de ejemplo de Visual Basi
' **********************************************************************
'
' FUNCTION:
' GetFirstCdRomDriveLetter()
'
' PURPOSE:
' Finds the first CD-ROM device and then returns its drive letter.
'
' ARGUMENTS:
' None
'
' RETURNS:
' A string that represents the first CD-ROM drive letter. If the
' function fails for any reason, it returns vbNullString.
'
' **********************************************************************
Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal nDrive As String) As Long
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _
"GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long
Public Const DRIVE_CDROM As Long = 5
Function GetFirstCdRomDriveLetter() As String
' Declare variables.
Dim lDriveType As Long
Dim strDrive As String
Dim lStart As Long: lStart = 1
' Create a string to hold the logical drives.
Dim strDrives As String
strDrives = Space(150)
' Get the logial drives on the system.
' If the function fails it returns zero.
Dim lRetVal As Long
lRetVal = GetLogicalDriveStrings(150, strDrives)
' Check to see if GetLogicalDriveStrings() worked.
If lRetVal = 0 Then
' Get GetLogicalDriveStrings() failed.
GetFirstCdRomDriveLetter = vbNullString
Exit Function
End If
' Get the string that represents the first drive.
strDrive = Mid(strDrives, lStart, 3)
Do
' Test the first drive.
lDriveType = GetDriveType(strDrive)
' Check if the drive type is a CD-ROM.
If lDriveType = DRIVE_CDROM Then
' Found the first CD-ROM drive on the system.
GetFirstCdRomDriveLetter = strDrive
Exit Function
End If
' Increment lStart to next drive in the string.
lStart = lStart + 4
' Get the string that represents the first drive.
strDrive = Mid(strDrives, lStart, 3)
Loop While (Mid(strDrives, lStart, 1) <> vbNullChar)
End Function
El siguiente es un ejemplo de llamar desde una
macro (procedimiento Sub) para que funcione
GetFirstCdRomDriveLetter():
Sub Main
Dim strDriveLetter as String
' Call the GetFirstCdRomDriveLetter() and store the
' return value in strDriveLetter.
strDriveLetter = GetFirstCdRomDriveLetter()
' Display the drive letter in a message box.
MsgBox strDriveLetter
End Sub
Volver
al principio
Para obtener más información acerca de cómo obtener
ayuda acerca de Visual Basic para Aplicaciones, consulte el
siguiente artículo en Microsoft Knowledge Base
163435 (http://support.microsoft.com/kb/163435/EN-US/)
VBA: Programar recursos de Visual Basic para Aplicaciones
Volver
al principio
