Opening Text file for Input Problems.

[EddyLLC]

I found the following code in an earlier thread and modified it but I did something wrong. I define strFolderName in a startup routine. When I stop the code and check values strFile is set to a file in the appropriate directory but when it gets to the Open for Input statement the Error File not found appears. What did I miss?

Dim strFile As String

strFile = Dir(strFolderName & "", vbNormal)
Do While (Len(strFile) > 0)
Open strFile For Input As #1
' various operations
strFile = Dir
Loop

 

[PHV]

Perhaps something like this ?
Open strFolderName & "\" & strFile For Input As #1

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[EddyLLC]

Very strange. I tried you code and the first time through it worked fine. I found another error farther down in the code. The second time I tried it strFile is being set to "" even though there are files in the appropriate directory. I am perplexed. Thanks

 

[PHV]

Probably strFolderName was reset ...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[EddyLLC]

You were right, It works great now. Thanks for the help!