Trailingslash Fonksiyonu

21/05/2020, 07:35

accessman

TrailingSlash fonksiyonu nedir
21/05/2020, 08:47

alicimri

Kod:
    FileExists(TrailingSlash(CurrentProject.Path) & "GetThis.xls")
Yukardaki örnekte gibi sona "Slash" ekliyor.
21/05/2020, 08:51

ozanakkaya

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
21/05/2020, 09:20

accessman

teşekkürler