• Home
 · 
• Files/File Controls/Input/Output
 · 
• get the path to a file

get the path to a file

get the path to a file

Rate get the path to a file

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 Sub FindFilePath()

strValue = "C:\Test\Test\Temp\Bin\X\WW\QQQQQQQQQQ"
Temp = Len(strValue)
Temp1 = Temp
charValue = Right(strValue, 1)
Do While charValue <> "\"
    charValue = Right(FileName, 1)
    FileName = Left(strValue, Temp)
    Temp = Temp - 1
    Debug.Print FileName
Loop

Stop
FilePath = FileName & "\"
MsgBox FilePath
End Sub