VB6.0读取以时间为名的数据文件,求指点

cocoleexs

想用VB6读取以时间为名的数据文件，文件在类似这样的路径下Z:\YYYYMM\YYYYMMDD20\YYMMDD20.txt，每天20时系统都会自动生成1个.txt文件。
我要读取.txt文件中的某行某列，要求当一个命令下达时，调用的是最新的数据文件。
比如，我是2016年3月30日白天运行程序，则调用的应该是前一天晚上20时生成的数据，路径是Z:\201603\2016032920\16032920.txt中的数据。测试的数据见图片。
从网上东拼西凑来的代码，编译有错：实时错误‘9’  下标越界。
求指点，谢谢~~
Private Sub cmd1_Click()
Dim lngFn As Long, strT As String
Dim filename As String
filename = Replace(Format(Date - 1, "yyyymm-yyyymmdd20-yymmdd20"), "-", "\") & ".txt"
    lngFn = FreeFile
    Open f & "\ " & "filename" For Binary As lngFn
   strT = Space(LOF(lngFn))
    Get 1#, , strT
    Close #lngFn
Dim sArr() As String
    sArr = Split(strT, vbCrLf)
    txt1.Text = Split(sArr(0), " ")(0)
End Sub



vb初学者，求大虾们指教，小女子先行谢过~~~

1099221723

Private Sub Command1_Click()
Dim sA As String

'判断时间
If Hour(Now) >= 20 Then
    tt = Now
Else
    tt = DateAdd("d", -1, Now)
End If

'确定路径
lj = "Z:/" & Format(tt, "YYYYMM") & "/" & Format(tt, "YYYYMMDD") & "20/" & Format(tt, "YYMMDD") & "20.txt"

'确认文件是否存在
If Dir(lj) <> "" Then
    '读取文件到变量sA
    Open lj For Binary As #1
    sA = Space(LOF(1))
    Get #1, , sA
    Close #1
Else
    MsgBox "文件不存在"
    Exit Sub
End If

'关于文件操作
'我下面用的是分割读取
'现在一般气象资料编辑的时候都是固定位数的，分割不一定好使，看你的文件具体情况建议改成mid
'mid具体用法mid(string,开始字符位置,长度)
'例如字符串 str="1 2 3"
'mid(str,1,1)就是"1"
'mid(str,3,1)就是"2"
ha = Split(sA, vbCrLf) '行切割，如果出问题可能是因为文件是Linux下的，vbCrLf 改成 chr(10)
For i = 0 To UBound(ha)
    Debug.Print ha(i)
    nr = Split(ha(i), " ")
    For j = 0 To UBound(nr)
    Debug.Print nr(j)
    Next
Next
End Sub

cocoleexs

1099221723 发表于 2016-4-7 16:44
Private Sub Command1_Click()
Dim sA As String

程序已经调试成功，谢谢。但是实际上我是想一个cmddy命令调取两个路径下的文件。分别调取的时候调试都没有问题，但合在一起了就报错（op2.Text未找到方法或数据成员），请帮忙检查下。谢谢！！！！
Private Sub cmddy_Click()
Dim llngFn As Long, sstrT As String
Dim ffilename As String
Dim ssArr() As String
sstrT = Format$(Date - 1, "yyyymmdd")
ffilename$ = "e:\" & "OCF." & Right$(sstrT, 6) & "12.58570.dat"
llngFn = FreeFile
Open ffilename For Binary As llngFn
sstrT = Space(LOF(llngFn))
Get 1#, , sstrT
Close #llngFn
If Trim(sstrT) > "" Then
    ssArr = Split(sstrT, vbCrLf)
    op1.Text = Split(ssArr(11), " ")(19)
End If
'MsgBox strT
'调用另一个路径下的文件
Dim lngFn As Long, strT As String
Dim filename As String
Dim sArr() As String
strT = Format$(Date - 1, "yyyymmdd")
filename$ = "e:\" & "Z_SURF_I_58570_" & strT & "120000_O_AWS_FTM.txt"
lngFn = FreeFile
Open filename For Binary As lngFn
strT = Space(LOF(lngFn))
Get 1#, , strT
Close #lngFn
If Trim(strT) > "" Then
    sArr = Split(strT, vbCrLf)
   op2.Text = Split(sArr(2), " ")(1)
End If
End sub

1099221723

Dim lngFn As Long, strT As String
Dim filename As String
Dim sArr() As String
重复定义，把下面的这三行删掉