doc转html出现错误

-----------------------错误信息
拒绝访问。 
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.UnauthorizedAccessException: 拒绝访问。 ASP.NET 未被授权访问所请求的资源。请考虑授予 ASP.NET 请求标识访问此资源的权限。ASP.NET 有一个在应用程序没有模拟时使用的基进程标识(通常，在 IIS 5 上为 {MACHINE}\ASPNET，在 IIS 6 上为网络服务)。如果应用程序正在通过 <identity impersonate="true"/> 模拟，则标识将为匿名用户(通常为 IUSR_MACHINENAME)或经过身份验证的请求用户。 若要授予 ASP.NET 对文件的写访问权，请在资源管理器中右击该文件，选择“属性”，然后选择“安全”选项卡。单击“添加”添加适当的用户或组。突出显示 ASP.NET 帐户，选中所需访问权限对应的框。
------------------
附:machine.config中userName="machine"已经改成"system"
文件夹的用户已经加入ASP.NET,并且为完全控制
-----------------
代码:
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        Call DocToHtml("D:\file.doc", "D:\Htm.Htm")
    End Sub    Sub DocToHtml(ByVal docPath As String, ByVal htmlPath As String)
        Dim app As Application = New Application
        app.Visible = False
        Dim o As Object = Missing.Value
        Dim docFile As Object = docPath
        Dim doc As _Document = app.Documents.Open(docFile, o, o, o, o, o, o, o, o, o, o, o)
        Dim fileName As Object = htmlPath
        Dim format As Object = 8, Html
        doc.SaveAs(fileName, Format, o, o, o, o, o, o, o, o, o)
        Dim t As Object = True
        app.Quit(t, o, o)
    End Sub