Ho utilizzato un software per creare programmi portable (ThinAppPortable) perchè all'interno del programma ci sono dei controlli che per funzionare richiedono l'installazione, pertanto con un semplice ".exe" mi da errore su alcuni form.
Il codice utilizzato per aprire le cartelle è questo:
Private Sub cmd_cartelle_Click()
Dim nome As String
Dim T As Object
nome = txt_voce.Text
Set T = CreateObject("Shell.Application")
T.ShellExecute (schermata_generale.lbl_accessodati & "\PERSONALE\" & nome)
counter = 0
End Sub