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

古城风~~~

竹密无妨溪水过,天高不碍白云飞。这天下总有一份是属于我古城的天地!

 
 
 

日志

 
 

ASP简单的文件操作  

2009-08-05 10:53:55|  分类: asp |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ASP简单的文件操作</title>
</head>

<body>
<%
 'fileFolder为文件目录
 fF="images"
 fileFolder=Server.MapPath(fF)
 'response.Write(fileFolder)
 '定义FSO(文件流)对象
 Set fso = CreateObject("Scripting.FileSystemObject")
 'response.Write(fso.folderexists(fileFolder))
 '检测文件目录是否存在
 if fso.FolderExists(fileFolder) then
  '取得文件夹
  Set fileDir = fso.GetFolder(fileFolder)
  'response.Write("查看成功")
  '查看文件大小
  'response.Write(fileDir.size&"KB")
  'fileList为文件数组
  Set fileList = fileDir.Files
  response.Write("文件个数:"&fileList.count&"<br>")
  '枚举文件数组中的文件名
  For Each f1 in fileList
   fileName= f1.name
   if fso.FileExists(Server.MapPath(fF&"/"&fileName)) then
    'response.Write(fso.fileExists(Server.MapPath(fF&"/"&fileName))&"<br>")
    set files = fso.GetFile(Server.MapPath(fF&"/"&fileName))
    
    '文件大小
    Select Case true
    Case files.size<1024
    fsize=files.size&" B"
    Case files.size<1048576
    fsize=Round((files.size/1024),2)&" KB"
    Case files.size<1073741824
    fsize=Round((files.size/1024/1024),2)&" MB"
    Case else
    fsize=Round((files.size/1024/1024/1024),2)&" GB"
    End Select
    
    
    
    
    response.Write(fileName&"-->大小:"&fsize&"-->类型:"&files.type&"-->创建时间:"&files.DateCreated&"<br>")
    '文件删除
    'fso.DeleteFile files,true
    set files=nothing
    set fileDir=nothing
   end if
   'response.Write(fileName&""&"<br>")
  Next
  
 else
  '创建文件夹
  set fileDirCreate = fso.CreateFolder(fileFolder)
  response.Write("创建成功")
  '删除文件夹
  'fso.DeleteFolder(fileFolder)
  'response.Write("删除成功")
 end if
 Set fso = nothing
 
%>
</body>
</html>

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

历史上的今天

评论

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

页脚

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