filesystemobject....

[Cristiano_L_R 0]

estou usando o código abaixo para gerar um arquivo.. ele cria a pasta, e beleza, mas não está criando o arquivo.. e não consigo achar o erro....

 

PS: tid já foi definido anteriormente, portanto ele existe.. não precisa se preocupar com ele

 

Dim objFso, strPasta, strArquivo, strCaminho

 

set objFso = Server.CreateObject("Scripting.FileSystemObject")

 

    strCaminho = Server.MapPath("componentes_vbv/requests")

 

if not objFso.FolderExists(strCaminho) then

  set strPasta = objFso.CreateFolder(strCaminho)

end if

 

set strArquivo = objFso.CreateTextFile(strCaminho &"/"& tid &".xml", true)

 

strArquivo.WriteLine("<MESSAGE><PRICE>"& vlTotal &"</PRICE><AUTHENTTYPE>0</AUTHENTTYPE></MESSAGE>")

 

set strArquivo = nothing

set strPasta = nothing

set objFso = nothing

http://forum.imasters.com.br/public/style_emoticons/default/ninja.gif

[SerraVentura 0]

tid é um arquivo ou uma pasta???parece ser um arquivo com a extensão .xml...........se ele já foi definido ele já esta criado!