获取ini配置文件中的信息
上一篇 /
下一篇 2008-08-21 13:48:12
在固定配置文件中,读取相应行的信息。
function GetFile(strPath,numH)
const ForReading=1
set ōbjFSO=CreateObject("scrīpting.FileSystemObject")
set ōbjTextFile=objFSO.OpenTextFile(strPath,ForReading)
temp=objTextFile.ReadAll
strArray=Split(temp,vbCrLf)
GetFile=strArray(numH-1)
objTextFile.close
End Function
使用:
dim x
x=GetFile("Z:\scrīpts\install.ini",2) '读取第二行的信息。
dim MyString,msg
MyArray=split(x,"=",-1,1)
a="Z:\AdminKit\" & MyArray(1) & "\setup.exe"
收藏
举报
TAG: