8-12.asp

来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· ASP 代码 · 共 10 行

<%
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" 
%>