Nenhuma resposta neste tópico

[daytor]

Dim iFormato As Integer
Dim sDiretorio As String
Dim frmDir As New frmRetDiretorioExtrato
Dim FSO As New FileSystemObject
Dim textStream As textStream
Dim sExtrato As String

sDiretorio = sDiretorio + ".HTM"
Set textStream = FSO.CreateTextFile(sDiretorio, True, True)
textStream.WriteLine m_sExtrato
textStream.Close
If CBool(chkCobrarExtrato.Value) = True Then
Call AtualizarExtratoEmitido(m_dblContaCor, m_IdLogConsulta, g_iNumCooperativa, g_iNumPAC, m_dataInicial, m_dataFinal)
End If

O que pode ser galera?