%
'
%>
<%
main()
Sub main()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Dim ExcelDir
ExcelDir = "/" & HomeAlias & "/data/user"
If Not(fs.FolderExists(Server.MapPath(ExcelDir))) Then
fs.CreateFolder(Server.MapPath(ExcelDir))
End If
%>
<% = HtmlHeader("") %>
<% If BASPLEADDisable = 1 Then 'ASP.NETモード %>
<% = HtmlFooter %>
<%
End Sub
%>