下面的代码,可以用来把保存在CyberArticle里面的网页的网址提取出来,保存到IE收藏夹,或者迁移到IE收藏夹,便于查看这些网页更新情况。
使用:首先在CyberArticle里面选中文件夹/文章。然后执行脚本。执行脚本后,将会在D:\下面,生成文章网址相应的.lnk文件。将这些.lnk文件放在IE收藏夹目录,就可以在IE里面,随时浏览网页的更新情况了。
'创建快捷方式函数,从网上找的 Function CreateShortcut(pShortcutPath, pTargetPath) : CreateShortcut = False : On Error Resume Next Dim objShell : Set objShell = WScript.CreateObject("WScript.Shell") Dim objShortcut : Set objShortcut = objShell.CreateShortcut(pShortcutPath) If Err.Number <> 0 Then LogEchoLine "Error " & Err.Number & ": " & Err.Description Err.Clear Else objShortcut.Description = "Shortcut to " & pTargetPath objShortcut.TargetPath = pTargetPath objShortcut.Save If Err.Number = 0 Then CreateShortcut = True End If Set objShortcut = Nothing Set objShell = Nothing End Function '创建文章对应的快捷方式。递归方式,将文件夹下面的文章全部导出 Function CreateNodesShortcut(objNodeCollection, path) CreateNodesShortcut = False If Not objNodeCollection Is Nothing Then For i = 0 To objNodeCollection.Count - 1 Step 1 Dim objNode Set objNode = objNodeCollection.item(i) if objNode.Type = 1 then '文章。如果文章标题包含非法字符,例如:/\?*等等,则不能成功保存 Call CreateShortcut(path + objNode.Title + ".lnk", objNode.URL) Else '文件夹 Call CreateNodesShortcut(objNode.Children, path) End If Next End If End Function ' 创建CyberArticle.CAAutomationApp对象,访问CyberArticle内部对象 Dim objCA Set objCA = CreateObject("CyberArticle.CAAutomationApp") Dim selectedNodes Set selectedNodes = objCA.SelectedNodes If Not selectedNodes Is Nothing Then Call CreateNodesShortcut(selectedNodes, "d:\") '更改这里,可以修改快捷方式保存路径 End If |
|
|