PDA

View Full Version : [Visual basic] lettera unita


tsone1
30-01-2007, 19:52
Come faccio a sapere la lettere dell'unità da dove viene eseguito il programma vb creato?
Mi serve saperlo in quanto il programma risiede su un disco rimovibile...

mynos79
31-01-2007, 08:35
Parli di VB6?
Ci sono moltissimi metodi ... forse il più veloce, senza mettere in campo api varie, è l' utilizzo di App.Path che restituisce il percorso in cui si trova l' eseguibile; e per restituire solo la lettera dell' unità puoi usare la funzione Mid per prendere solo il primo carattere della stringa; ad esempio:

Dim lettera As String
lettera = Mid(App.Path, 1, 1)

restituisce ad esempio C
Mentre se vuoi anche i : e la barra \ allora basta modificare il 3° paramentro del Mid (2 per restituire C: oppure 3 per restituire C:\) che indica la lunghezza della stringa da estrapolare dalla stringa originaria.