VB代碼,求解析
如题,请问,以下代码的作用是什么,VB....不是很懂,特别是VB当中关于文件读取的部分,各位大神请赐教。
Public Type m_Sort
CriteriaNo As String * 2
ID As String * 8
TimeInput As String * 19
End Type
Public G_SortNo(1 To 15) As m_Sort
Public Function LoadA() As Boolean
Dim intFile As Integer
Dim intTotal As Integer
Dim T_TmpG As m_Sort
Dim T_TmpG As m_Sort
intFile=FreeFile()
Open Path For Random As #intFile Len=Len(T_TmpG2) 'Path是一个后缀名为.BCM的文件的路径,如D:\Case.BCM
intTotalCount LOF(intFile)\Len(T_TmpG2)
For int I=1 To 15
If intI > intTotal Then
Put #intFile, intI, T_TmpG2
GoTo jump1
End If
Get #intFile, intI, T_TmpG
G_SortNo(intI)=T_TmpG
jump1:
Next
Close #intFile
Exit Function
End Function