整个VBS或者批处理来实现备份与替换OE的地址簿 - 中国DOS联盟论坛

谁帮忙修改下这个脚本呢？
或者修改完后，再转换一个批处理的版本呢？
谢谢了


If MsgBox("即将替换方式更新：" & vbNewLine & "Outlook Express 地址簿,是否继续？"  & vbNewLine & "点是继续",1,"^_^") = vbOK Then
Set FSO = CreateObject("Scripting.FileSystemObject")
If  FSO.FileExists("%systemdrive%\%DATE%.wab") Then 
    Wscript.Echo "你已经更新过了，不需要重复更新。"
else
If Not FSO.FileExists("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab") Then
if MsgBox("不存在 Outlook Express 地址簿,是否强制更新？"  & vbNewLine & "点是继续",1,"^_^") = vbOK Then
End if
If FSO.FileExists("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab") Then 
createobject("wscript.shell").popup"程序在3秒钟后将自动开始替换更新!",3,"^_^",64+4096 

Dim WshShell,OldWab
On Error Resume next
set WshShell=WScript.CreateObject("WScript.shell") 
OldWab=WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab") 
msgbox OldWab
Fso.CopyFile Oldwab,"%SystemDrive%\%Date%.WAB",true
Fso.CopyFile Update.WAB,Oldwab,true
set fso=nothing 
createobject("wscript.shell").popup"替换成功, 请退出重开Outlook Express以生效!",3,"^_^",64+4096 
set fso=nothing
End If
End If
End If

[ Last edited by secowu on 2009-2-27 at 09:03 ]

第1楼　secowu	发表于 2009-02-27 08:07
初级用户　发帖 92　积分 201
整个VBS或者批处理来实现备份与替换OE的地址簿谁帮忙修改下这个脚本呢？或者修改完后，再转换一个批处理的版本呢？谢谢了 If MsgBox("即将替换方式更新：" & vbNewLine & "Outlook Express 地址簿,是否继续？" & vbNewLine & "点是继续",1,"^_^") = vbOK Then Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FileExists("%systemdrive%\%DATE%.wab") Then Wscript.Echo "你已经更新过了，不需要重复更新。" else If Not FSO.FileExists("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab") Then if MsgBox("不存在 Outlook Express 地址簿,是否强制更新？" & vbNewLine & "点是继续",1,"^_^") = vbOK Then End if If FSO.FileExists("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab") Then createobject("wscript.shell").popup"程序在3秒钟后将自动开始替换更新!",3,"^_^",64+4096 Dim WshShell,OldWab On Error Resume next set WshShell=WScript.CreateObject("WScript.shell") OldWab=WshShell.ExpandEnvironmentStrings("%USERPROFILE%\Application Data\Microsoft\Address Book\%USERNAME%.wab") msgbox OldWab Fso.CopyFile Oldwab,"%SystemDrive%\%Date%.WAB",true Fso.CopyFile Update.WAB,Oldwab,true set fso=nothing createobject("wscript.shell").popup"替换成功, 请退出重开Outlook Express以生效!",3,"^_^",64+4096 set fso=nothing End If End If End If [ Last edited by secowu on 2009-2-27 at 09:03 ]

第2楼　secowu	发表于 2009-02-27 08:46
初级用户　发帖 92　积分 201
不行。。。这个调试不成功 [ Last edited by secowu on 2009-2-27 at 09:04 ]

第3楼　secowu	发表于 2009-02-27 09:03
初级用户　发帖 92　积分 201
越写越乱了。晕 [ Last edited by secowu on 2009-2-27 at 09:04 ]

第4楼　secowu	发表于 2009-02-28 05:56
初级用户　发帖 92　积分 201
版主在不？