<%
'以下的“路徑”指相對于執行文件所在目錄路徑
'===========================================================
'=刪除目錄自定義過程，使用方法:delFolder("路徑+文件夾名")
'=網絡學子　2003年2月16日　Email:wlxz@youmeng.com
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:wlxz@youmeng.com
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:wlxz@youmeng.com
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:wlxz@youmeng.com
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
%>