用代码保存FrontPage中两个带有链接的网页,出错“Windows SharePoint Services 网站中不包含 URL“C:\Temp\test.htm”,请问如何解决?具体做法,
1,启动FrontPage2000(或以上版本均有该问题)
2,新建两个页(new_page_1.htm和new_page_2.htm),在new_page_1.htm中做链接到new_page_2.htm ,在new_page_2.htm中做链接到new_page_1.htm .
3,写代码保存Sub TestSavePages()
With Application.ActiveWebWindow
.PageWindows(0).SaveAs "c:\temp\test1.htm"
.PageWindows(1).SaveAs "c:\temp\test2.htm"
End With
End Sub运行出错,Windows SharePoint Services 网站中不包含 URL“C:\Temp\test.htm”
请问高手该如何解决这种问题?另外发现,在FrontPage自己保存的时候,如果我只选择保存其中的一个文件,他会自动的提示保存另外一个,如果在保存第二个的时候选择取消,则第一个也没有保存。当然如果两个同时保存时,没有这个问题。是否有什么设置有关,还是程序代码不够健全?
谢谢
1,启动FrontPage2000(或以上版本均有该问题)
2,新建两个页(new_page_1.htm和new_page_2.htm),在new_page_1.htm中做链接到new_page_2.htm ,在new_page_2.htm中做链接到new_page_1.htm .
3,写代码保存Sub TestSavePages()
With Application.ActiveWebWindow
.PageWindows(0).SaveAs "c:\temp\test1.htm"
.PageWindows(1).SaveAs "c:\temp\test2.htm"
End With
End Sub运行出错,Windows SharePoint Services 网站中不包含 URL“C:\Temp\test.htm”
请问高手该如何解决这种问题?另外发现,在FrontPage自己保存的时候,如果我只选择保存其中的一个文件,他会自动的提示保存另外一个,如果在保存第二个的时候选择取消,则第一个也没有保存。当然如果两个同时保存时,没有这个问题。是否有什么设置有关,还是程序代码不够健全?
谢谢
To:hhjjhjhj(大头)
想做一个带有网页编辑的软件,因为FrontPage2003对于我们软件来说非常实用,所以我们打算把网页编辑环境转移到FrontPage中。您有什么办法可以解决如上所说的问题吗?
Sub TestSave()
Dim iCount As Integer
Dim i As Integer
Dim fpDoc As FPHTMLDocument
Dim objLink As FPHTMLAnchorElement
With Application.ActiveWebWindow
iCount = .PageWindows.Count
For i = 0 To iCount - 1
For Each objLink In .PageWindows(i).Document.Links
objLink.href = "|" & objLink.href & "|"
Next
.PageWindows(i).SaveAs "D:\temp\" & TestGetFileName(.PageWindows(i).Caption), True
For Each objLink In .PageWindows(i).Document.Links
objLink.href = Replace(objLink.href, "|", "")
Next
.PageWindows(i).Save True
Next
End With
End Sub