asp fso操作类
发布时间:2021-05-25 00:00| 有 位朋友查看
简介:复制代码 代码如下: % '================================================================ '=系统版本:1.0= '=文件版本:1.0= '=文本创建日期:2005-10-31= '================================================================ Class Cls_IO Private Fil……
<%
'================================================================
'= 系统版本:1.0 =
'= 文件版本:1.0 =
'= 文本创建日期:2005-10-31 =
'================================================================
Class Cls_IO
Private FileSystemObject
Private Sub Class_Terminate()
If IsObject(FileSystemObject) Then
Set FileSystemObject = Nothing
End If
End Sub
'//创建FileSystemObject对象
Public Function Init_Object()
On Error Resume Next
If Not IsObject(FileSystemObject) Then
Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
Init_Object = False
Err.Clear
Exit Function
Else
Init_Object = True
End If
End If
End Function
Public Sub DeleteFile(ByVal Str)
On Error Resume Next
Call FileSystemObject.DeleteFile(Server.MapPath("../UpLoadFile/"&Str))
End Sub
Public Function IsFolder(ByVal Str)
IsFolder = FileSystemObject.FolderExists(Str)
End Function
Public Function ShowFolder(ByVal Str)
Dim Obj_Folder,Obj_File
Set Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str))
Set ShowFolder = Obj_Folder.Files
Set Obj_Folder = Nothing
End Function
End Class
%>
原文链接:https://m.jb51.net/article/21155.htm
本站部分内容转载于网络,版权归原作者所有,转载之目的在于传播更多优秀技术内容,如有侵权请联系QQ/微信:153890879删除,谢谢!