In una listbox ho un elenco di files letti da uno dei dischi del PC.
Seleziono un file (escludo gli exe ed i files di sistema per non avere brutte sorprese).
premo sul pujlsante "Apri File" per aprire il file selezionato.
Il codice è questo:
codice:
Private Sub CommandButton3_Click()
Dim NomeFile As String
Dim NomeProgramma, Extension
Dim Ret
NomeFile = TextBox1 & ListBox2.Text
'Es.: D:\documenti_miei\nwind2003.mdb
Extension = LCase(Mid(NomeFile, InStrRev(NomeFile, ".") + 1))
Select Case Extension
    Case "htm", "html", "php", "php", "js", "php4", "asp", "css", "inc", "SQL", "sql"
        NomeProgramma = "C:\Program Files\Adobe\Adobe Dreamweaver CS5\Dreamweaver.exe"
    Case "txt", "memo", "ref", "ta"
        NomeProgramma = "notepad.exe"
    Case "doc"
        Ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & NomeFile)
        Exit Sub
    Case Else
        MsgBox "Il file selezionato non è idoneo all'apertura"
        Exit Sub
End Select
Shell (NomeProgramma & " " & NomeFile & ""), 1
End Sub
Fin qui va tutto bene: i files descritti nei vari CASE si aprono col programma previsto.

Quel che chiedo è questo:
è possibile l'apertura di tutti i files di tipo documento (quindi anche .zip, .rar, .pub, .gif, .mid, ecc) con gli appropriati programmi?

NB uso il VBA di excel 2003 e sporadicamente di excel 2010

Grazie per l'eventuale interessamento.