请高手编写一个替换文件的vbs脚本，30分

<%
Dim fso, doc
Set fso = CreateObject("Scripting.FileSystemObject")
path1 = Server.MapPath("1.mdb")
Set doc = fso.CreateTextFile(path1) '创建1.mdb
path2 = Server.MapPath("/1/1.mdb")
Set doc = fso.CreateTextFile(path2) '创建/1/1.mdb
fso.CopyFile path1, path2 '将path1复制到path2
%>
在使用fso操作文件时，一定要注意权限问题，当你在窗口中直接建立文件时，用fso编辑时不好使的，解决方法是添加个everyone；当用fso生成文件时，权限问题是正常的。

'在有c:\1\1文件夹存在的情况下
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile("c:\1.mdb")
MyFile.Move "c:\1\1.mdb "

'在有c:\1\1文件夹不存在的情况下
Dim fso, MyFile ,f
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile("c:\1.mdb")
Set f = fso.CreateFolder("c:\1")
CreateFolderDemo = f.Path
MyFile.Move "c:\1\1.mdb "

'我自己写的 希望给我加分

set fso=CreateObject("scripting.filesystemobject")
if fso.fileexists("c:\1.mdb") then
If Not fso.FolderExists("c:\1") Then fso.CreateFolder("c:\1")
if fso.fileexists("c:\1\1.mdb") then fso.DeleteFile "c:\1\1.mdb"
fso.MoveFile "c:\1.mdb","c:\1\1.mdb"
end if

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists("C:\1") Then
fso.CreateFolder("C:\1")
End If
fso.CopyFile "C:\1.mdb","C:\1\1.mdb",True
fso.DeleteFile "C:\1.mdb",True
If Err.Number > 0 Then
Err.Clear
End If