asp文件操作

 

<%
MyFolder
=server.mappath("/"
set fs=createobject("scripting.filesystemobject")
If fs.folderexists(MyFolder)=false then                      '判断文件夹是否存在
   fs.createfolder(MyFolder)                                      ‘创建文件夹
End If

function getuserspace(blogurl)
path
=server.mappath(blogurl)
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objfso.GetFolder(path)     
getuserspace
=objFolder.size
Set objFolder = Nothing
end function

function fsize(size)
if size<1000 then
fsize
=left(size,5)&" B"
elseif size>1000 and size<1024*1000 then
fsize
=left(size/1000,5)&" KB"
elseif size>1024*1000 and size<1024*1024*1000 then
fsize
=left(size/(1024*1000),5)&" MB"
else
fsize
=left(size/(1024*1024*1000),5)&" GB"
end if
end function

blogspace
=getuserspace("/")
response.write fsize(blogspace)     
'获取文件夹的大小,并转换单位



file 
= Server.MapPath("/ccc.jpg“)
    Dim fso, MyFile
    
Set fso = CreateObject("Scripting.FileSystemObject")
    
if fso.FileExists(file) then           '判断文件是否存在
    Set MyFile = fso.GetFile(file)                 
       MyFile.Delete                                  ’删除文件 
    
end if
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值