1 #language = "VBScript"
 2 #title="自动备份到Ｔ盘"
 3 #tooltip = "自动备份到Ｔ盘"
 4 
 5 
 6 '
 7 '文件名：自动备份到Ｔ盘.vbee
 8 '版本：0.1
 9 '发布日期：2011年3月8日
10 '作者：宣华华，http://www.cnblogs.com/xuanhuahua/
11 '说明：这是一个Emeditor的VBScript宏脚本，可将当前文档自动备份到
12 '      金山T盘所创建的虚拟盘中，以自动同步
13 '      适用于已安装金山T盘的用户，稍微修改一下，其他类似网盘均可
14 '      对于不愿直接在T盘中编辑文档的EmEditor用户，提供了新的选择
15 '      关于金山T盘，参阅其官网 http://www.1tpan.com/
16 '使用方法：1、将本脚本保存在Emeditor的Plugins\@bin文件夹内
17 '          2、!!!!!用Emeditor打开脚本，根据脚本内的注释，修改相应内容，进行设置后保存
18 '          3、在Emeditor中打开“宏”菜单，找到并选择该宏脚本，运行即可
19 
20 
21 On Error Resume Next
22 
23 Set doc = editor.ActiveDocument
24 
25 
26 '金山T盘默认的盘符为"T:\"，如果不对，请自行修改
27 TPanPath="T:\"
28 
29 If doc.Name="" Then '文件是否未保存过
30     SaveOrNot=Window.confirm("文件必须先保存，是否保存？")
31     IF SaveOrNot=True Then
32         doc.Save()
33         If doc.Name="" Then
34             Window.Quit()
35         End If
36     End IF
37 End IF
38 
39 
40 Set fso=CreateObject("Scripting.FileSystemObject")
41 
42 '!!!!注意：默认设置为True，存在同名文件，将自动覆盖
43 fso.CopyFile doc.FullName, TPanPath, True 
44 
45 Window.Alert("太好了，已成功复制到T盘!")
46 Set fso=Nothing