asp生成年月命名文件夹

Y=year(date())
M=month(date())
File=Y & "-" & m
strFolder="UpLoadFile/" & File
    '首选判断要建立的文件夹是否已经存在
    Dim strTestFolder, objFSO
    strTestFolder = Server.Mappath(strFolder)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    ' 检查文件夹是否存在
    If not objFSO.FolderExists(strTestFolder) Then '如果不存在
    strTestFolder = Server.Mappath(strFolder)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
 ' 建立文件夹
   objFSO.CreateFolder(strTestFolder)
   Set objFSO = Nothing
    End If

删除文件代码：

set fso= Server.CreateObject("scripting.filesystemobject")
path= "1/1.txt"
path=server.MapPath(path)
fso.deletefile path
set fso=nothing
end if