UC知道ASP创建年月日目录
来源：百度知道 编辑：UC知道 时间：2024/06/30 14:03:01
<%
Function GetYearMonth(fldr,path)'文件夹名称,文件夹路径
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(path&fldr)) Then
msg = fldr & " exists."
Else
msg = fldr & " doesn't exist."
Set f = fso.CreateFolder(path & fldr)
End If
GetYearMonth=path&fldr&"\\"
End Function
'上传文件的绝对目录
thisUploadDir="e:\\aaa\\"
fldr= year(now) &"-"& month(now)'文件夹名称:年月目录
thisUploadDir=GetYearMonth(fldr,thisUploadDir)
Response.write("<script language=javascript>alert('"&thisUploadDir&"')</script>")
Response.write(thisUploadDir)
%>
可以结实一下各个部分的意思吗？
解释。不是结实。一时谈快打错了字，不好意思
Function GetYearMonth(fldr,path)'文件夹名称,文件夹路径
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(path&fldr)) Then
msg = fldr & " exists."
Else
msg = fldr & " doesn't exist."
Set f = fso.CreateFolder(path & fldr)
End If
GetYearMonth=path&fldr&"\\"
End Function
'上传文件的绝对目录
thisUploadDir="e:\\aaa\\"
fldr= year(now) &"-"& month(now)'文件夹名称:年月目录
thisUploadDir=GetYearMonth(fldr,thisUploadDir)
Response.write("<script language=javascript>alert('"&thisUploadDir&"')</script>")
Response.write(thisUploadDir)
%>
可以结实一下各个部分的意思吗？
解释。不是结实。一时谈快打错了字，不好意思
<%
Function GetYearMonth(fldr,path)'文件夹名称,文件夹路径
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject") *设置FSO文件
If (fso.FolderExists(path&fldr)) Then *如果文件夹存在的话那么提示已有目录信息
msg = fldr & " exists."
Else *如果文件夹不存在的话那么
msg = fldr & " doesn't exist." *提示没有目录信息
Set f = fso.CreateFolder(path & fldr) *新建此目录
End If
GetYearMonth=path&fldr&"\\" *设置得到目录的路径
End Function
'上传文件的绝对目录
thisUploadDir="e:\\aaa\\" *上传文件目录路径
fldr= year(now) &"-"& month(now)'文件夹名称:年月目录 FLDR=年（当前）-月（当前）
thisUploadDir=GetYearMonth(fldr,thisUploadDir) *设置上传目录名称
Response.write("<script language=javascript>alert('"&thisUploadDir&"')</script>") *输出上传信息
Response.write(thisUploadDir)
%>