' ***********************************************************' オブジェクトを作成' ***********************************************************
Set Fso = CreateObject( "Scripting.FileSystemObject" )
' ***********************************************************' 処理開始' ***********************************************************
strTarget = "frame.htm"
if not Fso.FileExists( strTarget ) then
Set MyFile = Fso.CreateTextFile( strTarget )
MyFile.Close
end if
strTarget = "control.php"
if not Fso.FileExists( strTarget ) then
Set MyFile = Fso.CreateTextFile( strTarget )
MyFile.Close
end if
strTarget = "model.php"
if not Fso.FileExists( strTarget ) then
Set MyFile = Fso.CreateTextFile( strTarget )
MyFile.Close
end if
strTarget = "view.php"
if not Fso.FileExists( strTarget ) then
Set MyFile = Fso.CreateTextFile( strTarget )
MyFile.Close
end if
strTarget = "view2.php"
if not Fso.FileExists( strTarget ) then
Set MyFile = Fso.CreateTextFile( strTarget )
MyFile.Close
end if
strTarget = "viewmessage.php"
if not Fso.FileExists( strTarget ) then
Set MyFile = Fso.CreateTextFile( strTarget )
MyFile.Close
end if
strTarget = "style.css"
if not Fso.FileExists( strTarget ) then
Set MyFile = Fso.CreateTextFile( strTarget )
MyFile.Close
end if