□浮生蕭條□

<% On Error Resume Next %>
<%
function makefilename()
fname = Year(Now()) & Month(Now())
makefilename=fname
end function
%>
<%set fso = createobject("scripting.filesystemobject")
set fldr = fso.getfolder ("E:\")
response.write "父文件夹名字是：" & fldr & "< br>"
if fldr.isrootfolder = true then
response.write "该文件夹是一根文件夹 " & "<br>"
else
response.write "该文件夹不是根文件夹" & "<br> "
end if
response.write "驱动器名字是：" & fldr.drive & "<br>"
%>
<%
Function ReportFileStatus(FileName)
'//功能：判断文件是否存在
'//形参：文件名
'//返回值：成功为1，失败为-1
'//
Dim msg
msg = -1
If (fso.FileExists(FileName)) Then
msg = 1
Else
msg = -1
End If
ReportFileStatus = msg
End Function
%>

　　
<%
  set fso = createobject("scripting.filesystemobject")
  if(fso.FileExists("e:\"& makefilename))Then  
  response.Write "文件夹以存在！"
  else
  fso.createfolder("e:\"& makefilename)
  response.write "文件夹已存在,文件夹名为" & fso.getbasename("e:\"& makefilename)
  end if
%>