By using t2do.com you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

GetDirName(sFile)



Function GetDirName(sFile As String) As String

'Version: 1.001

'Purpose: Gets the file directory dropping any files

Dim i As Long

GetDirName = ""

For i = Len(sFile) To 1 Step -1

    If Mid(sFile, i, 1) = "\" Then

        GetDirName = Mid(sFile, 1, i)

        Exit Function

    End If

Next







End Function