Índice

Solución 19.2 Conocer los tipos de las unidades lógicas

En la zona de declaraciones del módulo:

Declare PtrSafe Function TipoUnidad Lib "kernel32" Alias "GetDriveTypeA" _ 
(ByVal nDrive As String) As Long 

Código del procedimiento:

Sub Tipos_Unidades_Logicas()  
    Dim strUL As String  
    Dim strTodasUL As String  
    Dim strLetraUL As String  
    Dim dblNumTipoUL As Double  
    Dim strTipoUL As String  
    Dim fso As Scripting.FileSystemObject  
    Dim UL As Scripting.Drive  
    Set fso = New FileSystemObject  
      
    On ...