Soyez le premier à donner votre avis sur cette source.
Snippet vu 31 237 fois - Téléchargée 36 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
Commentaires
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.
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
Il suffit de faire "Application.StartupPath()" et le tour est joué .
-------------
http://fg.logiciel.free.fr
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.