|
Visual Basic (VB and VBA) |
|
Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected] |
| If in doubt, record a macro and inspect the entrails! |
Please read the DISCLAIMER.
Here is an INDEX to all the procedures.
You will probably need one copy of my GLOBAL DECLARATIONS.
Public Function strTemplatePath(Optional strDelim) As String
' Procedure : strTemplatePath
' Description: Deliver the current template path with a trailing delimiter.
' Copyright: Chris Greaves Inc.
' Inputs: None
' Returns: string.
' Assumes: None.
' Side Effects: None
' Tested: By the calls shown below.
strTemplatePath = MacroContainer.Path
If IsMissing(strDelim) Then
If Right(strTemplatePath, 1) = Application.PathSeparator Then
Else
strTemplatePath = strTemplatePath & Application.PathSeparator
End If
Else
If Right(strTemplatePath, 1) = strDelim Then
Else
strTemplatePath = strTemplatePath & strDelim
End If
End If
'Sub TESTstrTemplatePath()
' MsgBox strTemplatePath
' MsgBox strTemplatePath("\")
' MsgBox strTemplatePath("hello")
'End Sub
End Function
| We all knew nothing when we started … |
|
Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001 |