Question

VB6.0读取包含时间为名的txt文件,求指点，该怎么写filename

'文件名为Z_SEVP_C_BFIF_20170219083000_P_RFFC-SPCC-201702191200-16812
Dim lngFn As String, strT As String
Dim filename As String
filename = Replace("Z_SEVP_C_BFIF_", Format(Now, "yyyymmdd"), "083000_P_RFFC-SPCC-", Format(Now, "yyyymmdd"), "1200-16812") & ".txt"
lngFn = FreeFile
Open d & "\" & "temp" & "\" & filename For Binary As #lngFn
'路径为d：\temp\
vb新手，求指导。

Answer 1

Dim lngFn As Integer, strT As String

Dim filename As String

filename = "Z_SEVP_C_BFIF_" & Format(Now, "yyyymmdd") & "083000_P_RFFC-SPCC-" & Format(Now, "yyyymmdd") & "1200-16812.txt"

lngFn = FreeFile

Open "d:\temp\" & filename For Binary As #lngFn