asp fso 代码大全2007-08-23 21:50对于一个支持asp和fso的空间来说有了fso一切变得简单多了
我也是个新手写了一些代码供大家
学习研究用
首先看支持fso组件吗
<%
'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 操作
'=========================================================
'◆检查某一目录是否存在
'=========================================================
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
'=========================================================
'◆ 如果文件夹不存在则建立新文件夹 ◆
'=========================================================
Function checkFolder(folderpath)
If CheckDir(folderpath) = false Then'如果文件夹不存在
MakeNewsDir(folderpath)'就建一个文件夹
end if
end Function
'=========================================================
'◆ 删除文件夹 ◆
'=========================================================
Function DeleteFoldera(folderpath)
dim path
Set fso = CreateObject(FSObject)
path=request.ServerVariables("APPL_PHYSICAL_PATH")&;folderpath
fso.DeleteFolder(path)
Set fso = nothing
end Function
'=========================================================
'◆ 更改文件夹名称 ◆
'=========================================================
Function moveFolder(foldername,newfoldername)
isfso
Set fso = CreateObject(FSObject)
fso.moveFolder ""&;request.S
erverVariables("APPL_PHYSICAL_PATH")&;"\"&;foldername&;"" ,""&;request.ServerVariables("APPL_PHYSICAL_PATH")&;"\"&;newfoldername&;""
Set fso =nothing
End Function
'=========================================================
'◆ 删除指定文件 ◆
'=========================================================
Function DeleteFile(file)
Set fso = CreateObject(FSObject)
fso.DeleteFile request.ServerVariables("APPL