Discussion :

[minrae]

Bonjour,

J'ai fait ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
using System;
using System.IO;
using System.Windows.Forms;
using System.Net;
 
 
namespace WinFormsApp1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        private void button3_Click(object sender, EventArgs e)
        {
            // Spécifiez la lettre du lecteur réseau
            string driveLetter = "T";
 
            // Créez une instance de DriveInfo en spécifiant la lettre du lecteur réseau
            DriveInfo driveInfo = new DriveInfo(driveLetter);
 
            // Vérifiez si le lecteur est un lecteur réseau
            if (driveInfo.DriveType == DriveType.Network)
            {
                // Obtenez le chemin d'accès du lecteur réseau
                string networkPath = driveInfo.RootDirectory.FullName;
 
                MessageBox.Show("Chemin d'accès du lecteur réseau : " + networkPath);
            }
            else
            {
                MessageBox.Show("Ce lecteur n'est pas un lecteur réseau.");
            }
        }
    }
}

Mon but est de retourner le chemin d'accès ("\\serveur\partage") du lecteur réseau "T" mais lorsque que je le lance il me retourne le chemin suivant : "T:\" mais pas le véritable chemin qui serait pour le cas de mon test "\\10.0.0.20\Test\"

Avez vous une solution afin de pouvoir retourner le chemin complet au lieu de le lettre svp ?

Pour info je suis novice en programmation mais je ne demande qu'à en apprendre plus :-)

[sevyc64]

Perso pour faire ça, je passe par les API Windows :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
    Public Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, ByRef cbRemoteName As Integer) As Integer
 
    Public Shared Function CheckNetworkDrive(path As String) As String
 
        '--- Détecte si le chemin donné est sur un lecteur réseau, si le cas, convertion en chemin unc complet -> \\serveur\partage\... ----
        Dim ret As Integer
        Dim out As String = New String(" "c, 260)
        Dim len As Integer = 260
 
        ret = WNetGetConnection(IO.Path.GetPathRoot(path).Substring(0, 2), out, len)
        out = out.Replace(vbNullChar, "").Trim
        If out.Trim <> String.Empty Then
            If Not path.StartsWith(out) Then
                path = IO.Path.Combine(out, path.Replace(IO.Path.GetPathRoot(path), ""))
                Return path
            End If
        End If
        Return path
 
    End Function