下面的代码是一个正被呼吁程序发现时它是通过目录搜索每个文件功能的一部分。
set searchname = objFSO.OpenTextFile(server.mappath(filename),1, true)
do until searchname.AtEndOfStream
lineData = lcase(searchname.ReadLine())
if instr(lineData,s)>0 then
instances = instances + 1
end if
Loop
我的代码这部分我很困惑与。 此代码昨天完美。 我做了一些修改，但大多与HTML和CSS。 当我今天出去拉此代码优化的更好，我只是不断收到权限被拒绝的错误这条线。
set searchname = objFSO.OpenTextFile(server.mappath(filename),1, true)
问题是，该代码扫描过的文件夹中包含了一些文件有一个以上的字。 因此，它是必不可少的，我得到的双引号内的“文件名”变量。 我一直在到处寻找一个解决方案，其中没有一个是有帮助的呢。 这甚至可能还是有解决方法吗？
任何帮助将在这里非常感激。
编辑：由于这里要求这么得到的文件名的代码。 虽然不知道它是如何与我的问题。
Function filesearch(name)
ext = instr(name,".txt")
vdirectoryvalue = instr(name,"Files\")+6
idname = mid(name,vdirectoryvalue,ext)
vdirectory = len(idname) - 4
filename = left(idname,vdirectory)
instances = 0
set searchname = objFSO.OpenTextFile(server.mappath(idname), 1, true)
do until searchname.AtEndOfStream
lineData = lcase(searchname.ReadLine())
if instr(lineData,s)>0 then
instances = instances + 1
end if
Loop
End Function
