Hello everyone,
 
I've got a script that's been running fine until I tried to modify one statement.
I changed this statement:
strArrayFileName = View(Row:=5, Col:=25, Length:=21) 'C:\ARRAY\20030411.TXT
to this:
strArrayFileName = View(Row:=5, Col:=25, Length:=17) & Facility & ".txt" 'C:\ARRAY\20030411
 
 
Then when I get to this point in the script it errors out with Error 53 - File not found.
 
Sub Parse(Optional dummy As String)
Dim F As Integer
Dim G As Integer
Dim S As String
F = FreeFile
Open strArrayFileName For Input As F  '**** I GET THE ERROR - FILE NOT FOUND... 10/28/04
If LOF(F) < Len(Rec) Then Stop 'no source file
 
 
 
 
But if I put the original statement back in, which only captures the file info on the screen, it is fine.
 
I watched the Locals and saw that  strArrayFineName was getting the correct assignment of
C:\ARRAY\20030411SSC.TXT     even when getting the error File not found.
 
Any ideas?
 
Thanks again,
 
Scott

 


CONFIDENTIALITY NOTICE: This e-mail communication and any attachments
may contain confidential and privileged information for the use of the
designated recipients named above.  If you are not the intended
recipient, you are hereby notified that you have received this communication in
error and that any review, disclosure, dissemination, distribution or copying
of it or its contents is prohibited. If you have received this
communication in error, please notify Saratoga Hospital immediately by e-mail at
[EMAIL PROTECTED] and destroy all copies of this communication
and any attachments.

<<image001.jpg>>

Reply via email to