EmEditor中自动把当前文档复制到金山T盘的VBscript脚本

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

转载于:https://www.cnblogs.com/xuanhuahua/archive/2011/03/08/1977373.html