下面的代码,可以用来把保存在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