0/5 (12 avis)
Snippet vu 33 664 fois - Téléchargée 39 fois
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
8 janv. 2008 à 17:33
Le faite que certaines personnes ne lisent pas les commentaires, et se croient brillants après avec fait un commentaire de la sorte, qui a été contrarié 2 fois avant, donne tout son sens aux commentaires.....
Les commentaires servent à savoir si la source est fiable, pas a rajouter nos 'Bonnes idées' qui datent de 5ans.
7 avril 2006 à 13:40
Qui renvoie le nom du répertoire avec le "" à la fin.
Cela fonctionne aussi bien sur une dll, sur un exe, ou en ASP.Net
21 mars 2006 à 13:18
26 févr. 2005 à 19:17
Il suffit de faire "Application.StartupPath()" et le tour est joué .
-------------
http://fg.logiciel.free.fr
20 sept. 2004 à 23:46
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.