[VB .NET] Trouver le chemin d'accès au répertoire utilisateur

Trouver le chemin d'accès au répertoire utilisateur [VB .NET] - C#/.NET managed - Programmation

Marsh Posté le 12-02-2004 à 09:26:18    

Salut à tous !
 
Je suis à la recherche d'une commande permettant de détecter tout simplement le chemin d'accès au répertoire utilisateur sous windows xp, comme par exemple :
 
C:\Documents and Settings\Corbier\
 
Voilà merci bcp  :hello:


---------------
Sans ma barbe, quelle barbe !
Reply

Marsh Posté le 12-02-2004 à 09:26:18   

Reply

Marsh Posté le 12-02-2004 à 15:24:40    

Bon g trouvé une alternative en procédant par bricolage :
la fonction 'Application.UserAppDataPath' retourne en partie ce que je recherche, j'me suis donc amusé à spliter :
 


        temp = Split(Application.UserAppDataPath, "\", 4, CompareMethod.Text)
        chemin_acces_bureau = temp(0) & "\" & temp(1) & "\" & temp(2) & "\Bureau"
 


 
et j'obtiens bien C:\Documents and Settings\Corbier\Bureau
 
J'ai aussi essayé en utilisant les variables d'environnement de windows, mais la variable %userprofile% n'est pas reconnue...
Donc je vais me contenter de ça...
Voilà voilà  :hello:


---------------
Sans ma barbe, quelle barbe !
Reply

Marsh Posté le 13-02-2004 à 03:38:44    

Code :
  1. Public Function directory() As String
  2.         Dim path As System.IO.Directory
  3.         Dim a As String
  4.         Dim nbrchar As Integer
  5.         nbrchar = path.GetCurrentDirectory.Length
  6.         a = path.GetCurrentDirectory.Remove(0, nbrchar - 4)
  7.         If a = "\bin" Then
  8.             directory = path.GetCurrentDirectory.Remove(nbrchar - 4, 4)
  9.             Return directory
  10.         Else
  11.             directory = path.GetCurrentDirectory
  12.             Return directory
  13.         End If
  14.     End Function


tu peux utiliser uniquement une partie dans ton cas tu as besoin uniquement de

Citation :


Public Function directory() As String
   Dim path As System.IO.Directory
   Return directory = path.GetCurrentDirectory
End Function    

     

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed