filetxtfor.asp

来自「asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内」· ASP 代码 · 共 49 行

<%

FunCtion FileTxtFor(FolderNamePath,SearchTxt,ForTxt)

	If ForTxt = "" Then
	FolderNamePaths = FolderNamePath
	Else
	FolderNamePaths = ForTxt
	End If
	
	Set objfso=CreateObject("ScripTing.FileSystemObject")
	Set objfolder=objfso.GetFolder(Server.Mappath(FolderNamePath)) 
	
	For Each objfoldercount In objfolder.subfolders
	
	FolderName0 = FileTxtFor(FolderNamePath&objfoldercount.Name&"/",SearchTxt,ForTxt)

	Next
	
	For   Each   thing   In   objfolder.Files
	
	Set Fso=Server.CreateObject("ScripTing.FileSystemObject")
	FolderFileName=thing
	If Fso.FileExists(FolderFileName)=True Then
	
	Set MyFile=Fso.OpenTextFile(FolderFileName,1)
	OpenFileContents=MyFile.Readall()
	MyFile.Close
	Set MyFile=NotHing
	Set Fso=NotHing

   	OpenFileContents=Replace(OpenFileContents,SearchTxt,FolderNamePaths)
	Set Fso=Server.CreateObject("ScripTing.FileSystemObject")
	FolderFileName=thing
	
	Set MyFile=Fso.OpenTextFile(FolderFileName,2,True)
	MyFile.WriteLine(OpenFileContents)
	MyFile.Close
	Set MyFile=NotHing
	Set Fso=NotHing

	End If
	OpenFileContents=""
	
	Next
	
End FunCtion

%>