[VB6] Drive Penna usb

[logan78]

Buon giorno,
ho un problema, dovrei visualizzare in una dirlist i file contenuti in una penna.

Il problema è che dovrei riconoscere, da programma, l'ultimo drive assegnato alla penna

[MdE2005]

Ciao..sarebbe più semplice usare un commondialog oppure un controllo drive, però se hai postato questa discussione significa che non puoi..
Ti propongo un metodo alquanto artigianale ma efficacie, in quanto ora non sono al computer di sempre e quindi quello ceh scrivo sono reminiscenze...

Dim Elenco As String, Drive As String

Elenco = "abcdefghilmnopqrstuvzwxyjk"

For i = 1 To Len(Elenco)

    Drive = Mid(Elenco, i, 1)

    Select Case GetDriveType(Drive & ":\")
        Case 2
            tipo = "Rimovibile"
            MsgBox Drive & ":\"
            Exit Sub 'oppure Exit for
        Case 3
            tipo = "Disco Fisso"
        Case Is = 4
            tipo = "Remoto"
        Case Is = 5
            tipo = "Cd-Rom"
        Case Is = 6
            tipo = "Disco Ram"
        Case Else
            tipo = "Non riconosciuto"
    End Select

next i

Ti è chiaro a cosa avevo pensato? La chiave USB sicuramente verrà riconosciuta come drive rimovibile: nel caso in cui tu abbia più unità rimovibili, è chiaro che trova solo la prima..

fammi sapere..

ciao

[logan78]

Ottimo L'idea e perfetta

Mi sapresti dire come eseguire un .exe da codice

[MdE2005]

Certamente..
Se non sei esperto di API oppure non ti interessano particolari opzioni per questo tipo di cose puoi usare il comando Shell:

Dim rv As Double
On Error GoTo risolvi
rv = Shell("C:\Applicazione.exe", vbNormalFocus)
Exit Sub
risolvi:
MsgBox rv

In caso di errore, rv restituisce 0.

Se invece vuoi a disposizione più possibilità ti consiglio di usare la funzione API Declare Function ShellExecute..

ciao

[ripsy85]

<ottima> davvero come idea, io l'ho provata ma non mi funziona mi da un errore su getDriveType, sapete dirmi perchè???Devo fare qualcosa, riferimenti, componenti ecc.....

[MdE2005]

Ciao..ti ho già risposto anche nell'altra discussione, comunque devi dichiarare la funzione API.

ciao

[alka]

Originariamente inviato da ripsy85
<ottima> davvero come idea, io l'ho provata ma non mi funziona mi da un errore su getDriveType, sapete dirmi perchè???Devo fare qualcosa, riferimenti, componenti ecc.....

Per favore, non condurre due discussioni diverse sullo stesso argomento.

Ciao!