GERAR TXT
Pessoal, Boa tarde!
Tenho uma tabela no access, dai quero gerar um arquivo TXT com o nome produtos.txt, com os seguinte campos.
Codigo, Nome,Valor
Sendo que quero verificar se o arquivo produtos.txt ja existe na pasta C:\Dados, se existir quero apagar e gerar um novo.
Alguem teria um exemplo pra mim?
Desde ja agradeço!
Emanuel
Tenho uma tabela no access, dai quero gerar um arquivo TXT com o nome produtos.txt, com os seguinte campos.
Codigo, Nome,Valor
Sendo que quero verificar se o arquivo produtos.txt ja existe na pasta C:\Dados, se existir quero apagar e gerar um novo.
Alguem teria um exemplo pra mim?
Desde ja agradeço!
Emanuel
Dim i as Integer
Dim separador as String
If Dir([Ô]c:\dados\produtos.txt) <> [Ô][Ô] Then
Kill ([Ô]c:\dados\produtos.txt)
End If
separador = [Ô]|[Ô]
n = FreeFile
Open [Ô]c:\dados\produtos.txt[Ô] For Output As #n
Do Until Rs.EOF
Print #n, rs!codigo & separador & rs!nome & separador & rs!valor
Rs.MoveNext
Loop
Close #n
Dim separador as String
If Dir([Ô]c:\dados\produtos.txt) <> [Ô][Ô] Then
Kill ([Ô]c:\dados\produtos.txt)
End If
separador = [Ô]|[Ô]
n = FreeFile
Open [Ô]c:\dados\produtos.txt[Ô] For Output As #n
Do Until Rs.EOF
Print #n, rs!codigo & separador & rs!nome & separador & rs!valor
Rs.MoveNext
Loop
Close #n
Tópico encerrado , respostas não são mais permitidas