8-12.asp

包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL Server2000下调试通过。所有程序

<%
set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
If Not MyFileObject.FolderExists("C:\ToBeDelete2") Then
	MyFileObject.CreateFolder ("C:\ToBeDelete1" )
	MyFileObject.CopyFolder "C:\ToBeDelete1","C:\ToBeDelete2" 
End If
'	MyFileObject.MoveFolder "C:\\ToBeDelete","C:\\ToBeDelete2" 
'	MyFileObject.DeleteFolder "C:\\ToBeDelete2" 
%>