TrailingSlash fonksiyonu nedir
Kod:
FileExists(TrailingSlash(CurrentProject.Path) & "GetThis.xls")
Yukardaki örnekte gibi sona "Slash" ekliyor.
Bağlantının sonunda slash yoksa slash ekler.
Public Function TrailingSlash(varIn As Variant) As String
If Len(varIn) > 0& Then
If Right(varIn, 1&) = "/" Then
TrailingSlash = varIn
Else
TrailingSlash = varIn & "/"
End If
End If
End Function