获取ini配置文件中的信息

在固定配置文件中，读取相应行的信息。

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"