Nom disque dur sous VB6

Bonjour,

Tu dis "VB6, comment récupérer le nom du disque dur en cours",

Réponse:

Sub Form_Load()
Dim nom_disque As String * 1
nom_disque = Mid(App.Path, 1, 1)
MsgBox nom_disque
End Sub

Mais il doit y avoir d'autre méthodes...
------------------


"Michel" <michel69@logys.fr> a écrit dans le message de news:
%23txDvniAGHA.3976@TK2MSFTNGP09.phx.gbl...
| Bonjour,
|
| un petit renseignement s'il vous plait,
|
| Sous VB6, comment récupérer le nom du disque dur en cours...
|
| Avec mes remerciements !
|
| Michel
|
|

Salut,

Tout dépend par ce que tu entends par "nom du disque":
La lettre (c:, d:, ...) ou le label du lecteur ?

Dim Lettre as String
Dim Label as String

Lettre = Left(CurDir,2)

Label = Dir(Lettre,vbVolume)

Pascal B.

"Michel" <michel69@logys.fr> wrote in message news:%23txDvniAGHA.3976@TK2MSFTNGP09.phx.gbl...
| Bonjour,
|
| un petit renseignement s'il vous plait,
|
| Sous VB6, comment récupérer le nom du disque dur en cours...
|
| Avec mes remerciements !
|
| Michel
|
|