ASP对文件夹操作

'方法：createFolder
'作用：建立目录
'参数：strDir　表示要建立的目录的物理路径
  sub createFolder(strDir)
 set fso=server.CreateObject("scripting.filesystemobject")
    if strDir <> "" then
   if not fso.folderExists(strDir) then fso.createfolder(strDir)
 end if
 set rso = nothing
  end sub
 
  sub delFolder(folderName)
 Set fso = CreateObject("Scripting.FileSystemObject")
 if fso.folderExists(folderName) then fso.DeleteFolder(folderName)
 'Response.Write "文件夹已删除"
 set fso = nothing
  end sub
 
  sub delFile(fileName)
 Set fso = CreateObject("Scripting.FileSystemObject")
 if fso.fileExists(fileName) then fso.DeleteFile(fileName)
 'Response.Write "文件夹已删除"
 set fso = nothing
  end sub