fso.asp

来自「BBS论坛的开发和设计」· ASP 代码 · 共 73 行

<%
'以下的“路径”指相对于执行文件所在目录路径
'===========================================================
'=删除目录自定义过程，使用方法:delFolder("路径+文件夹名")
'=网络学子　2003年2月16日　Email:[e-mail]
Function delFolder(delname)
	On Error Resume Next
	dim dname
	dname = delname
	Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
	MyFileObject.DeleteFolder Server.MapPath(dname)
	Set MyFileObject = Nothing
End Function
'===========================================================
'=删除文件自定义过程，使用方法:delfile("路径+文件名")
'=网络学子　2003年2月16日　Email:[e-mail]
Function delfile(delname)
	On Error Resume Next
	dim dname
	dname = delname
	Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
	MyFileObject.DeleteFile Server.MapPath(dname)
	Set MyFileObject = Nothing
End Function
'===========================================================
'=创建文件夹自定义过程，使用方法:FolderSub("路径+文件夹名")
'=网络学子　2003年2月16日　Email:[e-mail]
Function FolderSub(LanguageFolder)
	On Error Resume Next
	dim Fname
	Fname = LanguageFolder
	Set FSO=Server.CreateObject("Scripting.FileSystemObject")
	FSO.CreateFolder Server.MapPath(Fname)
	set FSO = Nothing
End Function

'===========================================================
'创建文件同时写入内容自定义过程，
'使用方法:
'Call FileSub("路径+文夹名,内容")
'网络学子　2003年2月16日　Email:[e-mail]
Function FileSub(addFile,Fcontent)
	On Error Resume Next
	dim Fname,OutContent
	Fname = addFile
	OutContent = Fcontent
	Set FSO=Server.CreateObject("Scripting.FileSystemObject")
	Set Fout = fso.CreateTextFile(server.mappath(Fname))
	Fout.Write(OutContent)
	Fout.close
	set FSO = Nothing
End Function

'===========================================================
'检测组件支持自定义过程，
'使用方法:if testObj("组件") then
Function testObj(ClassStr)
    On Error Resume Next
	Dim Obj,E
    testObj = False
    E = 0
    Set Obj = Server.CreateObject(ClassStr)
    If 0 = E Then testObj = True
    Set Obj = Nothing
    E = 0
End Function
'例子:
'if testObj("Scripting.FileSystemObject") then
'	response.Write "支持FSO"
'else
'	response.write "不支持FSO"
'End if
%>