Equivalent de app.path en vb.net

Soyez le premier à donner votre avis sur cette source.

Snippet vu 30 349 fois - Téléchargée 36 fois

Contenu du snippet

Voila de quoi sortir l'emplacement de l'executable en VB.Net

Source / Exemple :


Public Function AppPath(ByVal EndWithBackSlach As Boolean) As String
	Dim p As String
	' Recupere le chemin complet avec le nom de l'executable
	p = Application.ExecutablePath
	' Extrait la partie repertoire du chemin complet
	If (EndWithBackSlach) Then
		Return p.Substring(0, p.LastIndexOf("\") + 1)
	Else
		Return p.Substring(0, p.LastIndexOf("\"))
	End If
End Function

Public Function AppPath() As String
	Return AppPath(True)
End Function

' ************
' * Utilisation : *
' ************

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Debug.WriteLine("AppPath(True)  : " & AppPath(True))
	Debug.WriteLine("AppPath()      : " & AppPath())
	Debug.WriteLine("AppPath(False) : " & AppPath(False))
End Sub

Conclusion :


Et voila c'est tout simple :)

Bonne prog

@++
Crazyht

A voir également

Ajouter un commentaire

Commentaires

Icem@n
Messages postés
34
Date d'inscription
jeudi 29 juin 2000
Statut
Membre
Dernière intervention
27 octobre 2003
-
Juste ne passant :
System.IO.Path.GetDirectoryName(Application.ExecutablePath)

et si on veux le fichier de config par ex :
System.IO.Path.Combine(System.IO.Path.GetDirectoryName(Application.ExecutablePath), "config.xml")

Bonne Prog ;-)
cs_Crazyht
Messages postés
1523
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
4 -
Wi encore plus rapide mon premier post : http://www.vbfrance.com/article.aspx?Val=8061
cs_Crazyht
Messages postés
1523
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
4 -
Attention l'objet application n'existe que sur les projets Win Forms sinon, il faut remplacer

p=Application.ExecutablePath

par

p=System.Reflection.Assembly.GetExecutingAssembly.Location.ToString()

Voila :)

@++
Crazyht
Wardall
Messages postés
40
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
10 décembre 2004
-
Juste en passant. Pas besoin de tous ce code pour extraire le chemin de l'application de type Windows.. Simplement utiliser la Methode suivante :

Dim MyAppPath As String = Application.StartupPath
cs_Crazyht
Messages postés
1523
Date d'inscription
mardi 18 décembre 2001
Statut
Modérateur
Dernière intervention
21 août 2010
4 -
A certain moment (dans une DLL par exemple) tu n'as pas acces a Application

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.