Konvertering af dataset til excel i et webmiljø

Jeg er igang med at konvertere et dataset til et excelregneark via xml.
Dataene ligger på en sqlserver.
Jeg mangler en metode til at finde og benytte den lokale brugers personlige drev.
På serveren er iis'en sat op til windowsauthorisation. Så Brugeren har adgang til sit eget drev.
Her er koden:

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        'Fill a dataset with records from the Customers table.
        Dim strconn As String = "Provider=SQLOLEDB.1;Password=XXX;Persist Security Info=True;User ID=sa;Initial Catalog=YYY;Data Source=test-pc55p520w0."
        Dim objConn As New System.Data.OleDb.OleDbConnection(strconn)
        objConn.Open()
        Dim strSQL As String
        Dim objDataset As New DataSet
        Dim objAdapter As New System.Data.OleDb.OleDbDataAdapter
        strSQL = "select aktivitetkode,kortnavn,budgetkr,aktivbudgettimer from aktivitet where afdelingid =" & DropDownList1.SelectedValue
        objAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand( _
            strSQL, objConn)
        objAdapter.Fill(objDataset)

        ' Create the FileStream to write with.
        Dim strFilename As String
        strFilename = "\\test-pc55p520w0\C$\afdelingsliste.htm"
        Dim fs As New System.IO.FileStream(strFilename, _
            System.IO.FileMode.Create)

        'Create an XmlTextWriter for the FileStream.
        Dim xtw As New System.Xml.XmlTextWriter(fs, _
            System.Text.Encoding.Unicode)

        'Transform the XML using the stylesheet.
        Dim xmlDoc As System.Xml.XmlDataDocument = _
            New System.Xml.XmlDataDocument(objDataset)
        Dim xslTran As System.Xml.xsl.XslTransform = _
            New System.Xml.Xsl.XslTransform
        xslTran.Load("\\test-pc55p520w0\C$\afdelingsliste.xsl")
        xslTran.Transform(xmlDoc, Nothing, xtw)

        'Write the transformed XML to the file.
        objDataset.WriteXml(xtw)
        xtw.Close()

        'Start Excel and open the resulting file.
        Dim oExcel As Object
        oExcel = CreateObject("Excel.Application")
        oExcel.Workbooks.Open("\\test-pc55p520w0\C$\afdelingsliste.htm")

        'Make Excel visible and give the user control of the application.
        oExcel.Visible = True
        oExcel.UserControl = True
    End Sub

Denne metode har virket i et client program, men nu skal det kører på webben.

Altså: Jeg får følgende fejlmelding:¨
Du har ikke adgang til filen.

hvad kan jeg gøre.

Er der en anden metode når man skal gøre det på webben.