Code Example

Private Function CleanPath(ByVal p As String) As String
    ' Trim whitespace and strip a single pair of wrapping quotes if present.
    p = Trim$(p)
    If Len(p) >= 2 Then
        If Left$(p, 1) = """" And Right$(p, 1) = """" Then
            p = Mid$(p, 2, Len(p) - 2)
        End If
    End If
    CleanPath = p
End Function