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