Olá pessoal Estou usando o código abaixo para converter um arquivo teste.mdb (access) em arquivo *.txt (texto). alguém saberia me dizer como posso modificar o codigo para que a cada mil registros ele abra de novo a janela "Salvar como" e eu possa salvar de novo os mil registros seguintes? E assim por diante..... Muito obrigado a todos, jclf. Dim rs As dao.Recordset
Dim fs As Scripting.FileSystemObject
Dim texto As Scripting.TextStream
Dim contador As Long
Dim salvarComo As New SaveFileDialog()
Dim caminho As DialogResult
Dim Arquivo As String
Try
db = DAODBEngine_definst.OpenDatabase("C:\teste.mdb")
rs = db.OpenRecordset("dados", dao.RecordsetTypeEnum.dbOpenTable)
rs.Index = "idnum"
salvarComo.CheckFileExists = False
salvarComo.Title = "Salvar como"
salvarComo.FileName = "*.txt"
salvarComo.Filter = "Documentos de texto (*.txt)|*.txt|Todos os arquivos (*.*)|*.*"
caminho = salvarComo.ShowDialog
Arquivo = salvarComo.FileName
fs = New Scripting.FileSystemObject
texto = fs.OpenTextFile(Arquivo, Scripting.IOMode.ForWriting, True)
Do Until rs.EOF
texto.Write(rs.Fields("numero").Value & "_" & rs.Fields("nome").Value & vbCrLf)
contador = contador + 1
rs.MoveNext()
Loop
texto.Close()
texto = Nothing
fs = Nothing
rs.Close()
rs = Nothing
Catch ex As Exception
Finally
MsgBox("Total de Registros Exportados : " & contador, vbInformation, "Informação")
End Try
End Sub
