Asp技巧：删除文件夹、创建文件夹代码

strFolder = "ExcelFile"
Call DeleteFolder(strFolder)
Call CreateFolder(strFolder)
Function DeleteFolder(strFolder)
'首选判断要建立的文件夹是否已经存在
Dim strTestFolder, objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 检查文件夹是否存在
If objFSO.FolderExists(strTestFolder) Then
objFSO.DeleteFolder(strTestFolder)
Debug "删除成功！"
Else
Debug "该文件夹不存在！"
End If
Set objFSO = Nothing
End Function
Function CreateFolder(strFolder)
set objFSO = server.CreateObject("scripting.filesystemobject")
objFSO.createfolder(server.MapPath(strFolder))
Debug "创建成功！"
End Function