已解决问题
谷歌李文蜜用户在2016.04.05提交了关于“超凡蜘蛛侠VB读取以时间为名的**文件程序调试有误,求指点”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-03-03T16:07:53。下面这段程序已经调试可以运行，我的**文件名格式是这样的abc.16040320.58888.dat,其中除了中间的时间是变量，其余abc.和.58888都侍定的，
我把程序中的filename$="f:\"&Replace(Format(Date-1,"yyyymm-yyyymmdd20-yymmdd20"),"-","\")&".dat"这条语句改成
filename$="f:\"&Replace(Format(Date-1,"yyyymm-yyyymmdd20-abc.yymmdd20.58888"),"-","\")&".dat"后报错说路径未找到。
请老师指点，这种变量+固定格式的文件名vb是怎么处理的？谢谢~~~
以下是我的程序，请问如何修改？
PrivateSubcmd1_Click()
DimlngFnAsLong,strTAsString
DimfilenameAsString
DimsArr()AsString
filename$="f:\"&Replace(Format(Date-1,"yyyymm-yyyymmdd20-yymmdd20"),"-","\")&".dat"
lngFn=FreeFile
OpenfilenameForBinaryAslngFn
strT=Space(LOF(lngFn))
Get1#,,strT
Close#lngFn
IfTrim(strT)>""Then
sArr=Split(strT,vbCrLf)
txt1.Text=Split(sArr(0),"")(0)
EndIf
'MsgBoxstrT
EndSub
（程序大意是比方我是2016年4月4日早上使用exe程序，则调用的应该是前一天晚上20时生成的**，路径是201604\2016040320\abc.16040320.58888.dat中的**）
希望大家能够帮助她。详细问题描述及疑问：
下面这段程序已经调试可以运行，我的**文件名格式是这样的abc.16040320.58888.dat,其中除了中间的时间是变量，其余abc.和.58888都侍定的，
我把程序中的filename$="f:\"&Replace(Format(Date-1,"yyyymm-yyyymmdd20-yymmdd20"),"-","\")&".dat"这条语句改成
filename$="f:\"&Replace(Format(Date-1,"yyyymm-yyyymmdd20-abc.yymmdd20.58888"),"-","\")&".dat"后报错说路径未找到。
请老师指点，这种变量+固定格式的文件名vb是怎么处理的？谢谢~~~
以下是我的程序，请问如何修改？
PrivateSubcmd1_Click()
DimlngFnAsLong,strTAsString
DimfilenameAsString
DimsArr()AsString
filename$="f:\"&Replace(Format(Date-1,"yyyymm-yyyymmdd20-yymmdd20"),"-","\")&".dat"
lngFn=FreeFile
OpenfilenameForBinaryAslngFn
strT=Space(LOF(lngFn))
Get1#,,strT
Close#lngFn
IfTrim(strT)>""Then
sArr=Split(strT,vbCrLf)
txt1.Text=Split(sArr(0),"")(0)
EndIf
'MsgBoxstrT
EndSub
（程序大意是比方我是2016年4月4日早上使用exe程序，则调用的应该是前一天晚上20时生成的**，路径是201604\2016040320\abc.16040320.58888.dat中的**）
期待您的答案，没有什么华丽的语言,但是我对你的感谢不会减少 ！