Partial Path Formatting
No attachments for this post
Ensures the path contains a trailing backslash.
Public Sub CheckPath(MyPath$) ' Adds the \ to the Application Path when required
MyPath$ = App.Path
If Not Right(MyPath$, 1) = "\" Then
MyPath$ = MyPath$ & "\"
Private Sub Command1_Click()
Dim MyPath As String
Dim FileName As String
FileName = App.EXEName
MsgBox "The location of: " & FileName & " is " & MyPath$ & vbCrLf & " Full Path: " & MyPath$ & FileName
This code originally appeared on AndreaVB.com, and has been republished here with the permission of Andrea Tincani.
Comments on this post
No comments have been added for this post.
You must be logged in to make a comment.