ayuda con este error

[andres83]

el error es el siguiente

Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado

y el codigo es este (codigo para impresion )
'Crea archivo txt con información del vale de Venta
Dim objFSO, StrNombre, ObjTXT

StrNombre = "C:\Inetpub\PicharaSQL\informes\vale.txt"
'el error lo envia en esta linea
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")


If objFSO.FileExists (StrNombre) Then
'Lo elimino y lo creo nuevamente
Set ObjTXT = objFSO.CreateTextFile (StrNombre,true)
ObjTXT.WriteLine DescDoc & ":" & Nro_Documento
ObjTXT.WriteLine " "
ObjTXT.WriteLine "Fecha:" & Fecha & vbTab & "Artículos:" & RS.RecordCount & " Vendedor:" & Vendedor
ObjTXT.WriteLine String(50,"-")
ObjTXT.WriteLine " "
ObjTXT.WriteLine "Artículo " & String(3,vbTab) & "P.Unit. $Total:"
ObjTXT.WriteLine " "
Total = 0
Do While Not RS.EOF
ObjTXT.WriteLine right(String(3," ")& RS("Cantidad"),3) & " " & Left(RS("Descripcion") & String(30," "),25) & " " & Right(String(10," ")& formatnumber(RS("Precio_Venta"),0),10) & " " & Right( String(10," ")& formatnumber(RS("Total_Venta"),0),10)
Total = Total + Csng(RS("Total_Venta"))
RS.MoveNext
Loop
ObjTXT.WriteLine " "
ObjTXT.WriteLine String(2,vbTab) & "Total a Pagar: " & formatnumber(Total,0)
ObjTXT.WriteLine " "
ObjTXT.WriteLine " "
ObjTXT.WriteLine "*** Gracias por su compra *** "
ObjTXT.WriteLine " "

End if

RS.MoveFirst

ObjTXT.close
Set ObjTXT = nothing
Set objFSO = nothing