Equivalent de app.path en vb.net

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_Crazyht)