absolute to relative path 1

[josoers]

I have the following code

Dim objFSO As FileSystemObject
Dim objTS As TextStream
Dim strPath As String
Dim strLine As String
Set objFSO = New FileSystemObject

strPath = "c:\vb\files.txt"

Set objTS = objFSO.OpenTextFile(strPath, ForReading)

Do While objTS.AtEndOfStream = False

lst_vragen.AddItem (objTS.ReadLine)

Loop




how do i the get the path to the files.txt relative ?

 

[CasperTFG]

strPath = App.Path & "\files.txt"


Craig

"I feel sorry for people who don't drink. When they wake up in the morning, that's as good as they're going to feel all day."
~Frank Sinatra

 

[sera]

Well this helped us and it was super simple and super nice....thank you. Star for you!



Sera
I often believe that...
My computer is possessed!