aspÖ®fso²Ù×÷´óÈ«

Õª×Ô£ºhttp://zxlh168.blog.163.com/blog/static/7778614020098168638654/
<%
’FSO×é¼þÃû³Æ
dim FSObject
FSObject="Scripting.FileSystemObject"
’=========================================================
’¡ôÊÇ·ñÖ§³Ö×é¼þ
’=========================================================
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
if IsObjInstalled(FSObject) then
response.write "√"
else
response.write "×"
end if%>
-------------------------------------------------------
<%
’=========================================================
’¡ôÊÇ·ñÖ§³Ö×é¼þ
’=========================================================
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
’=========================================================
’fso ²Ù×÷
’=========================================================
’¡ô¼ì²éijһĿ¼ÊÇ·ñ´æÔÚ
’=========================================================
Function CheckDir(FolderPath)
folderpath=Server.MapPath(".")&"\"&folderpath
Set fso= CreateObject(FSObject)
If fso.FolderExists(FolderPath) then
CheckDir = True
Else
CheckDir = False
End if
Set fso= nothing
End Function
’=========================================================
’¡ô ¸ù¾ÝÖ¸¶¨Ãû³ÆÉú³ÉĿ¼
’=========================================================
Function MakeNewsDir(foldername)
dim fs0
Set fso= CreateObject(FSObject)
Set fs0= fso.CreateFolder(foldername)
Set fso = nothing
End Function
’==========