You are here:---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:32:11+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

BySalvBySalv
Amministratore del forum
    Post totali: 505

    Ciao Una soluzione potrebbe essere, Copio il tuo codice, modifico “Range” con “Cells”

    Sub Trova_unità()
    Sheets(“Foglio1”).Cells(20,1) = “”
    Sheets(“Foglio1”).Cells(21,1) = “”
    Dim fs, d, dc, n
    Set fs = CreateObject(“Scripting.FileSystemObject”)
    Set dc = fs.Drives
    n = 20
    For Each d In dc
    If d.DriveType = 4 Then
    Sheets(“Foglio1”).cells(n, 1) = d.DriveLetter
    n = n + 1
    End If
    Next
    End Sub

    come vedi ho inizializzato “n” con il numero di riga 20 quindi se trova più DriveType = 4, li scrive alla riga successiva

    Ciao By Sal (8-D

    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