答案:作者:virtualboy
功能是读取发布目录下的一个ini文件
While Not objTs.AtEndOfStream
strLineData = objTs.ReadLine
If Trim(strLineData) <> "" Then
If 易做图Section = True And Mid(strLineData,1,1) = "[" And _
Mid(strLineData,Len(strLineData),1) = "]" Then
objTs.Close
Set objTs = Nothing
Set objFs = Nothing
Exit Sub
End If
If strLineData = CONST_DB_SECTION Then
易做图Section = True
End If