常用的asp檔案與檔案夾操作函數

下面是我收集了大家在開發中常用的asp教程檔案與檔案夾操作函數，有檔案建立，刪除以及檔案夾刪除，建立等功能。

<%
'檔案操作函數:寫檔案
private sub writefile(filename,text)
 dim fso,file
 set fso = createobject("scripting.filesystemobject")
 set file = fso.createtextfile(filename, true)
   file.write(text)
 file.close
 set file = nothing
 set fso = nothing
end sub

'檔案操作函數:讀檔案
function readfile(filename)
 dim fso,file
 set fso = createobject("scripting.filesystemobject")
 set file = fso.opentextfile(filename, 1)
   readfile = file.readall()
 file.close
 set file = nothing
 set fso = nothing
end function

'測試檔案夾是否存在
function checkfolder(folder)
 dim fso,exists
   set fso = createobject("scripting.filesystemobject")
 checkfolder = fso.folderexists(folder)
 set fso = nothing
end function

'建立檔案夾
private sub createfolder(folder)
  dim fso
  set fso = createobject("scripting.filesystemobject")
  fso.createfolder(folder)
  set fso = nothing
end sub

'刪除檔案夾
private sub deletefolder(folder)
  dim fso
  set fso = createobject("scripting.filesystemobject")
  fso.deletefolder(server.mappath(folder))
  set fso = nothing
end sub

'刪除檔案
private sub deletefile(fname)
   set fso = createobject("scripting.filesystemobject")
 if fso.fileexists(server.mappath(fname)) then
  set f = fso.getfile(server.mappath(fname))
  f.delete()
  set f = nothing
 end if
 set fso = nothing
end sub

'測試檔案夾是否存在，不存在則建立
private sub checksavepath(filesavepath)
 p_tmp = split(filesavepath,"/")
 path = ""
 for i = 0 to ubound(p_tmp)
  if p_tmp(i) = "" then
   path = path & "/"
   else
    path = path & p_tmp(i) & "/"
    if not checkfolder(server.mappath(path)) then call createfolder(server.mappath(path)) 
  end if
 next
end sub
%>