You are here:Home-Domande su Excel VBA e MACRO-trovare le unità cd rom e dvd rom con codice vba-Rispondi a: trovare le unità cd rom e dvd rom con codice vba
Rispondi a: trovare le unità cd rom e dvd rom con codice vba2019-09-10T10:23:49+02:00

Home Forum Domande su Excel VBA e MACRO trovare le unità cd rom e dvd rom con codice vba Rispondi a: trovare le unità cd rom e dvd rom con codice vba

AvatarMisterExcel
Partecipante
    Post totali: 26

    Buongiorno. Chiedo un aiuto ai più esperti. Ho questo codice che mi scrive nella cella A20 del foglio Excel la lettera corrispondente all’unità cd rom (DriveType = 4) presente sul computer:

    Sub Trova_unità()
    Sheets(“Foglio1”).Range(“a20”) = “”
    Sheets(“Foglio1”).Range(“a21”) = “”
    Dim fs, d, dc, n
    Set fs = CreateObject(“Scripting.FileSystemObject”)
    Set dc = fs.Drives
    For Each d In dc
    If d.DriveType = 4 Then
    Sheets(“Foglio1”).Range(“a20”) = d.DriveLetter
    End If
    Next
    End Sub

    Potrebbe succedere che ci siano due unità (DriveType = 4) sul computer. In questo caso vorrei ampliare il codice in modo che le lettere delle due unità vengano scritte rispettivamente nelle celle A20 e A21 del foglio excel. Grazie in anticipo

    • Questa risposta è stata modificata 9 mesi, 4 settimane fa da BySalvBySalv. Motivo: modificato codice