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.