功能是读取发布目录下的一个ini文件
While Not objTs.AtEndOfStream strLineData = objTs.ReadLine If Trim(strLineData) <> "" Then If flgSection = 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 flgSection = True End If 
|