VB 中DIR 只获得一个文件，实际里面有多个，到底哪里有问题？

tcf = Dir(S_link1 & "\WCNAPBAL" & ndate & "*.csv")
tcf_ap = Dir(S_link2 & "\AP *" & "*.*")
' tc_name_u = Mid(tcf, 1, InStr(tcf, ".") - 1)
MsgBox (tcf)
'=====================================Collect Data
Do '---------------------open source data file

' tc_name_u = Mid(tcf, 1, InStr(tcf, ".") - 1)
tcf_u = tcf
MsgBox (tcf_u)
tcf = Dir()
Loop Until tcf = ""

相关了解……