Caminho para Salvar HTML

[m@r<3|o]

Código:

LOCAL lcFile
lcFile =  PADL(this.parent.txtclie_cod.value,5,"5")
lcCaminho = 'C:\Arquivos de programas\Sistema\FICHAS'

IF .NOT. DIRECTORY (lcCaminho + lcFile)
   MKDIR(lcCaminho + lcFile)
endif

SELECT * FROM cadclie1 WHERE thisformset.form3.txtclie_cod.Value = cadclie1.clie_cod INTO CURSOR cadlista
SELECT cadlista    

SET CLASSLIB TO HOME() + 'FFC\_REPORTLISTENER' ADDITIVE
oHTMListener = CREATEOBJECT('HTMLListener')

LOCAL lcFile
lcFile =  PADL(this.parent.txtclie_cod.value,5,"5")
lcCaminho = 'C:\Arquivos de programas\Sistema\FICHAS'

IF TYPE('oHTMListener')='O'
oHTMListener.TargetFileName = lcFile
oHTMListener.quietmode=.T.
report FORM C:\sistema\reports\rptcliecom  OBJECT oHTMListener
else
messagebox('Erro ao criar HTMLListener','error')
endif

Pessoal seguinte , quero gerar o relatorio toda vez que apertar o botao gravar
só que o relatorio só salva para todos os codigos na mesma pasta

exemplo aperto gravar em 224 ... gera a pasta o relatorio
se eu gerar 227 ... gera a pasta ... mais o html vai para a pasta 224

tentei encaixar
oHTMListener.TargetFileName = (lcCaminho + lcFile)
me salva fora das pastas 224 227

preciso setar o path conforme
como posso salvar dentro da pasta corretamente o relatorio

[Marcos Guedes]

Está salvando, pelo menos, com o nome desejado?

No seu código tem:

Código:

lcCaminho = 'C:\Arquivos de programas\Sistema\FICHAS'

Não seria com uma barra no final?

Código:

lcCaminho = 'C:\Arquivos de programas\Sistema\FICHAS'

[m@r<3|o]

o arquivo continua gravando fora da pasta com a barra

[m@r<3|o]

ola Marcos consigui apenas precisava
tratar a subpasta na gravacao do arquivo

Vlw

[Marcos Guedes]

Boa!