You are here:---Rispondi a: [RISOLTO] Controllare se è inserita una pen drive nel pc
Rispondi a: [RISOLTO] Controllare se è inserita una pen drive nel pc 2018-11-24T17:56:43+00:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Controllare se è inserita una pen drive nel pc Rispondi a: [RISOLTO] Controllare se è inserita una pen drive nel pc

sidsid
Moderatore
    Post totali: 510

    Questa macro chiama la function per la verifica se è collegata una pendrive

    Sub Prova()
    Dim s As String
    
    If PENDRIVE(s) Then
        MsgBox s
    Else
        MsgBox "Nessuna pendrive collegata"
    End If
    End Sub
    Function PENDRIVE(ByRef s As String) As Boolean
    Dim Fso As Object
    Dim dr As Object
    Set Fso = CreateObject("Scripting.FileSystemObject")
    
    '  lista dei drive collegati al pc
    ' 0 - Sconosciuto
    ' 1 - Removibile
    ' 2 - Fisso
    ' 3 - Network
    ' 4 - CD ROM
    ' 5 - RAM Disk
    
    For Each dr In Fso.Drives
        If dr.DriveType = 1 And dr.IsReady = True Then
          s = s & "Pendrive " & dr.DriveLetter & " è disponibile." & vbLf
        End If
    Next
    If Len(s) > 0 Then PENDRIVE = True
    Set Fso = Nothing
    End Function

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi