注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

宝贝小屋

生活 工作 学习

 
 
 

日志

 
 

asp文件管理函数  

2008-01-29 00:30:13|  分类: 电脑知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
sub showFolder(strfolder)
        dim fso,drvPath,fd,fl,subfd
    dim ifd,ifl
    dim j
       set fso=server.createobject("scripting.filesystemobject")
      drvPath=server.mapPath(strfolder)
       '  Response.write drvpath&"<br/>"
     set fd=fso.GetFolder(drvPath)
      set subfd=fd.subFolders
      'set fl=fd.files
    
      if subfd.count>0 then
       
         for each ifd in subfd
          Response.write "<li> "
              Response.write "<a href=""?spath="&Server.URLEncode (strfolder&"/"&ifd.name)&""">"& ifd.name&"</a> - "& FormatDateTime(ifd.DateCreated,1)&" - "&showSize(ifd.size)&" -  <a href=""?spath="&Server.URLEncode (strfolder)&"&fd="&Server.URLEncode (ifd.name)&""">删除</a>"
          Response.write "</li> "
        
         next
      End if
      set fl=fd.files
      if fl.count>0 then
          j=1
         for each ifl in fl
          Response.write "<li>"
               Response.write "<a href="""&strfolder&"/"&ifl.name&""">"& ifl.name&"</a> - "& formatDateTime(ifl.DateCreated,1)&" - "&showSize(ifl.size)
               Response.write " - <a href=""?act=del&spath="&Server.URLEncode (strfolder)&"&fl="&Server.URLEncode (ifl.name)&""">删除</a>"
          Response.write "</li> "
          j=j+1
         next
      End if
         set fso=nothing
    End sub

其它相关的

 程序代码
 '*************************************
'以直观格式显示文件大小
'*************************************
 function showSize(isize)
              showSize=isize & " Byte"
        if isize>1024 then
           isize=(isize\1024)
           showSize=isize & " KB"
        end if
        if isize>1024 then
           isize=(isize/1024)
           showSize=formatnumber(isize,2) & " MB"       
        end if
        if isize>1024 then
           isize=(isize/1024)
           showSize=formatnumber(isize,2) & " GB"      
        end if  
 End function
'*************************************
'删除文件filename为虚拟路径
'*************************************
 sub delfile(filename)
       dim fso,filepath
       filepath=server.mapPath(filename)
       set fso=server.createobject("scripting.filesystemobject")
             if fso.fileExists(filepath) then
            fso.DeleteFile filepath,true
         End if
       set fso=nothing
 End sub
'*************************************
'删除文件夹fd为虚拟路径
'*************************************
 sub delfolder(fd)
       dim fso,folderpath
       folderpath=server.mapPath(fd)
       set fso=server.Createobject("scripting.filesystemobject")
             if fso.FolderExists(folderpath) then
            fso.DeleteFolder folderpath,true
         End if
       set fso=nothing
 End sub

  评论这张
 
阅读(71)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017