Public Function addSlash(ByVal temp As String)
If Microsoft.VisualBasic.Right(temp, 1) <> "\" Then
Return temp & "\"
Else
Return temp
End If
End Function
'VB6
Public Function addSlash(temp As String)
If Right(temp, 1) <> "\" Then
addSlash = (temp + "\")
Else
addSlash = temp
End If
End Function
