主页 > 知识库 > asp下利用fso实现文件夹或文件移动改名等操作函数

asp下利用fso实现文件夹或文件移动改名等操作函数

热门标签:宿州防封外呼系统平台 友邦互联电销机器人违法吗 高质量的电销外呼系统 滴滴地图标注上车点 无营业执照地图标注教学 外呼系统怎么话费 地图标注还可以做吗 电销机器人采购 硅基电话机器人加盟
asp利用fso实现文件的移动
function movefiles(sFolder,dFolder)
    on error resume next
    dim fso
    set fso = server.createobject("scripting.filesystemobject")
    if fso.folderexists(server.mappath(sFolder)) and fso.folderexists(server.mappath(dFolder)) then
        fso.copyfolder server.mappath(sFolder),server.mappath(dFolder)
        movefiles = true
    else
        movefiles = false
        set fso = nothing
        call alertbox("系统没有找到指定的路径["  sFolder  "]!",2)
    end if
    set fso = nothing
end function
asp修改文件夹名称
function renamefolder(sFolder,dFolder)
    on error resume next
    dim fso
    set fso = server.createobject("scripting.filesystemobject")
    if fso.folderexists(server.mappath(sFolder)) then
        fso.movefolder server.mappath(sFolder),server.mappath(dFolder)
        renamefolder = true
    else
        renamefolder = false
        set fso = nothing
        call alertbox("系统没有找到指定的路径["  sFolder  "]!",2)
    end if
    set fso = nothing
end function
asp检查文件夹是否存在
function checkfolder(sPATH)
    on error resume next
    dim fso
    set fso = server.createobject("scripting.filesystemobject")
    if fso.folderexists(server.mappath(sPATH)) then
        checkfolder = true
    else
        checkfolder = false
    end if
    set fso = nothing
end function
asp检查文件是否存在
function checkfile(sPATH)
    on error resume next
    dim fso
    set fso = server.createobject("scripting.filesystemobject")
    if fso.fileexists(server.mappath(sPATH)) then
        checkfile = true
    else
        checkfile = false
    end if
    set fso = nothing
end function
asp创建文件夹
function createdir(sPATH)
    dim fso,pathArr,i,path_Level,pathTmp,cPATH
    on error resume next
    sPATH = replace(sPATH,"\","/")
    set fso = server.createobject("scripting.filesystemobject")
        pathArr = split(sPATH,"/")
        path_Level = ubound(pathArr)
        for i = 0 to path_Level
            if i = 0 then pathTmp = pathArr(0)  "/" else pathTmp = pathTmppathArr(i)  "/"
            cPATH = left(pathTmp,len(pathTmp)-1)
            if not fso.folderexists(cPATH) then fso.createfolder(cPATH)
        next
    set fso = nothing
    if err.number > 0 then
        err.clear
        createdir = false
    else
        createdir = true
    end if
end function
删除文件夹,这里是删除系统中栏目的文件夹
function delclassfolder(sPATH)
    on error resume next
    dim fso
    set fso = server.createobject("scripting.filesystemobject")
    if fso.folderexists(server.mappath(sPATH)) then
        fso.deletefolder(server.mappath(sPATH))
    end if
    set fso = nothing
end function
删除新闻内容文件
function delnewsfile(sPATH,filename)
    on error resume next
    dim fso,tempArr,cPATH,ePATH,i:i = 0
    set fso = server.createobject("scripting.filesystemobject")
    sPATH = sPATH  filename  site_extname
    if fso.fileexists(server.mappath(sPATH)) then
        fso.deletefile(server.mappath(sPATH))
        while(i > -1)
            i = i + 1
            ePATH = replace(sPATH,filename  ".",filename  "_"  i + 1  ".")
            if fso.fileexists(server.mappath(ePATH)) then
                fso.deletefile(server.mappath(ePATH))
            else
                i = -1
            end if
        wend
    end if
end function
您可能感兴趣的文章:
  • asp fso操作类
  • asp结合fso实现文件或文件夹创建删除等操作的函数
  • 使用FSO修改文件夹的名称实现文件转移防盗链
  • fso asp生成静态html的代码
  • ASP+FSO可视化目录编历(可增、删、改)下载
  • asp下用ADODB.Stream代替FSO读取文本文件
  • 设置FSO权限功能的说明
  • ASP FSO文件操作函数代码(复制文件、重命名文件、删除文件、替换字符串)

标签:锡林郭勒盟 雅安 广元 新余 儋州 江门 七台河 宣城

巨人网络通讯声明:本文标题《asp下利用fso实现文件夹或文件移动改名等操作函数》,本文关键词  asp,下,利用,fso,实现,文件夹,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《asp下利用fso实现文件夹或文件移动改名等操作函数》相关的同类信息!
  • 本页收集关于asp下利用fso实现文件夹或文件移动改名等操作函数的相关信息资讯供网民参考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推荐文章