" Response.write"Setfs=Server.CreateObject('Scripting.FileSystemObject')"&;"
" Set fs = Server.CreateObject("Scripting.FileSystemObject") Response.write "Designated to create the folder where the path and names,And assigned to , Ph variables:"&;"
" Response.write "Ph = Server.Mappath('\Folder5')"&;"
" Ph=Server.Mappath("\Folder5") Response.write "Use object instance is called CreateFolder method creates a Folder1 folders:"&;"
" Response.write "fs.CreateFolder (Ph)"&;"
" fs.CreateFolder (Ph) Response.write "Release FileSystemObject object instance:"&;"
" Response.write "Set fs = Nothing"&;"
" Set fs = Nothing %> Has successfully created<%=ph%>directory CopyFolder <% Response.write "Set fs=Server.Createobject('scrpting.FileSystemobject')"&;"
" Set fs = Server.CreateObject("Scripting.FileSystemObject") Response.write "sPh=Server.Mappath('\Folfer1')"&;"
" sPh = Server.Mappath("\Folder1") Response.write "tPh=Server.Mappath('\Folder2')"&;"
" tPh = Server.Mappath("\Folder2") Response.write "If a source folder exist, then use fs object CopyFolder method of realization
reproduction:"&;"
" Response.write "If fs.FolderExists(sPh) then fs.CopyFolder sPh,tPh"&;"
"&;"else Response.write 'Source folder does not exist and can't be reproduced'"&;"
"&;"Response.end"&;"
"&;"end if"&;"
" If fs.FolderExists(sPh) Then fs.CopyFolder sPh, tPh Else Response.Write "Source folder does not exist and can't be reproduced!" response.end End If Response.write "Release FileSystemObject object instance:"&;"
" Response.write "Set fs=nothing"&;"
" Set fs = Nothing %> Has successfully will <%=sPh%>copy to <%=tPh%>! MoveFolder <% Response.write "Set fs=Server.CreateObject('Scripting.FileSystemObject')"&;"
" Set fs = Server.CreateObject("Scripting.FileSystemObject") Response.write "sPh=Server.Mappath('\Folder3')"&;"
" sPh = Server.Mappath("\Folder3") Response.write "tPh=Server.Mappath('\Folder1\Folder4')"&;"
" tPh = Server.Mappath("\Folder1\folder4") Response.write "IF a source folder exits,then use fs object MoveFolder methods make mobile:"&;"
" Response.write "IF fs.FolderExits(sPh) then fs.MoveFolder sPh,tPh"&;"
"&;"else"&;"
"&;"response.write 'Source folder does not exit,can't move!'"&;"
"&;"Response.end"&;"
"&;"end if"&;"
" If fs.FolderExists(sPh) Then fs.MoveFolder sPh, tPh Else Response.Write "Source folder does not exit,can't move!" response.end End If Response.write "release
FileSystemObject object instance:"&;"
"
Response.write"Set fs=Nothing"&;"
" Set fs = Nothing %> Has successfully will<%=sph%>move to<%=tph%>! DeleteFolder <% Response.write "Set fs=Server.CreateObject('scripting.FileSystemObject')"&;"
" Response.write "ph=Server.Mappath('\Folder5')"&;"
" Response.write "If fs.FoldedExists(ph) then fs.DeleteFolder ph"&;"
"&;"else"&;"
"&;"Response.write 'this folder does not exist,and not need to delete!'"&;"
"&;"Response.end"&;"
"&;"end if"&;"
"