<%
Function tgzcmFile()
Dim SavePathName
DtNow=Now()
SavePathName=year(DtNow) & right("0" & month(DtNow),2) & "/"
SavePath=  "../Picfile/"& SavePathName 
'response.write "链接路径：" & savepath & "<br>"
'首选判断要建立的文件夹是否已经存在
tgzcmFile=SavePath
Dim objFSO
strTestFolder = Server.Mappath(SavePath)
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 检查文件夹是否存在
If not objFSO.FolderExists(strTestFolder) Then '如果不存在
strTestFolder = Server.Mappath(SavePath)
Set objFSO = CreateObject("Scripting.FileSystemObject")
'建立文件夹
objFSO.CreateFolder(strTestFolder)
Set objFSO = Nothing
End If
End  Function 
'Response.Write tgzcmCoolFile(SavePath)
%>

