Question

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

谁能编写一个vbs的脚本可以：把c:\1.mdb 替换并且移动到c:\1\1.mdb 需要无提示 可以的话再追加50分
我的意思不是网页的脚本，而是在PC机上执行的，类似：
DIM objShell
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C set var=world", 1, TRUE)保存为1.vbs文件，使用时双击即可。的代码，需要本机运行的
我的意思是替换文件，c:\1\1.mdb已存在，需要把c:\1.mdb移动替换到c:\1\1.mdb
如果用批处理的话命令是：move c:\1.mdb c:\1\ /y
请问能给出解释吗？

Answer 1

<%
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生成文件时，权限问题是正常的。

Answer 2

'在有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 "

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

Answer 3

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

Answer 4

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