by Joe Dacy II (6 Submissions)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Sat 3rd June 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Retrieves the path of a selected file (BAS Function)
Dim fAf As Integer
Dim fNf As Integer
Dim fChf As String
Dim fWheref As Integer
fAf = Len(Task2)
For fNf = 1 To fAf
fChf = Mid(Task2, fNf, 1)
If fChf = "\" Or fChf = "/" Then
fWheref = fNf
End If
Next
GetFilePath = Mid(Task2, 1, fWheref - 1)
End Function