Public Function AppPath()
Dim stmp() As String
Dim sPath As String
Dim i As Integer
stmp = Split(Application.ExecutablePath(), "\")
stmp(UBound(stmp)) = ""
sPath = Join(stmp, "\")
If Microsoft.VisualBasic.Right(sPath, 1) <> "\" Then
sPath = sPath & "\"
End If
Return sPath
End Function
\\\
Imports System.IO
Imports System.Reflection
..
..
..
Private Function ApplicationPath() As String
Return _
Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
End Function
///
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.