主页 > 知识库 > asp fso操作类

asp fso操作类

热门标签:银行业务 Mysql连接数设置 团购网站 阿里云 电子围栏 服务器配置 Linux服务器 科大讯飞语音识别系统
复制代码 代码如下:

%
'================================================================
'=                    系统版本: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
%>
您可能感兴趣的文章:
  • asp结合fso实现文件或文件夹创建删除等操作的函数
  • asp下利用fso实现文件夹或文件移动改名等操作函数
  • 使用FSO修改文件夹的名称实现文件转移防盗链
  • fso asp生成静态html的代码
  • ASP+FSO可视化目录编历(可增、删、改)下载
  • asp下用ADODB.Stream代替FSO读取文本文件
  • 设置FSO权限功能的说明
  • ASP FSO文件操作函数代码(复制文件、重命名文件、删除文件、替换字符串)

标签:广元 江苏 衡水 枣庄 萍乡 衢州 大理 蚌埠

巨人网络通讯声明:本文标题《asp fso操作类》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266