Export online fil til mappe på harddisk

Jeg har nedenstående kode, den laver en postfil og smider den på vores webserver, jeg har brug for at den gemmer lokalt i en mappe på vores pcér så postsystemet automatisk læser den ind, problemet hvordan gemmes den lokalt i f.eks. c:\post\pcpack.csv i stedet for på serveren?

<%
dim rsprod, strq
Set rsprod = Server.CreateObject("ADODB.Recordset")
strQ = "SELECT Kunde_Tabel.*, Kunde_Tabel.Kundenr FROM Kunde_Tabel WHERE (((Kunde_Tabel.Kundenr)="& knr &"));"
rsprod.Open strQ, objConn, , , adCmdText

While Not rsprod.EOF

    Set fso = CreateObject("Scripting.FileSystemObject")
    set file5 = fso.CreateTextFile(Server.MapPath("pcpac.csv"))

    file5.Write(Chr(34) & oid & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & "PPK" & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & rsprod("Kundenr") & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & rsprod("Navn") & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & rsprod("Adresse") & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & rsprod("postnr") & Chr(34) & "," & Chr(34) & rsprod("By") & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & rsprod("Kundenr") & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & rsprod("Email") & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & fors & Chr(34) & "," & Chr(34) & belob & Chr(34) & "," & Chr(34) & Chr(34) & "," & Chr(34) & Oid & Chr(34) & vbCrLf )
    file5.close

rsprod.MoveNext
Wend
rsprod.Close
Set rsprod = Nothing

end if
%>