• Home
 · 
• Files/File Controls/Input/Output
 · 
• Retrieves the path of a selected file (BAS Function)

Retrieves the path of a selected file (BAS Function)

Retrieves the path of a selected file (BAS Function)

Rate Retrieves the path of a selected file (BAS Function)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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