Whenever I am working with FileBoxes, I always have to use this bit of code. It makes sense but surely there is a quicker way or less code is required.

Code:
Private Sub cmdOpen_Click()
Dim Slash As String

Slash = "\"
If Right(fil.Path, 1) = "\" Then Slash = ""

ShellExecute Me.hwnd, "open", fil.Path & Slash & fil.FileName, "", fil.Path & Slash, 0
End Sub
The reason why I need to put this in (for those who are still wondering) is because fil.Path always gives the path without a '\' on the end, UNLESS it is the root directory (i.e. 'C:\'). So is there anyway to put a slash or dash or whatever on the end of a path and not put one there if there is already on there?