BANCO DE DADOS EM TXT

LIONHEART 16/09/2005 13:49:25
#104628

pronto, qualquer teste, basta vc criar um "arquivo.txt" e um botao no form e colar isso no script.
isso funciona que eu acabei de testar

Private Sub Command1_Click()
Dim Ler As Integer, Gravar As Integer
Dim Nome As String
Ler = FreeFile

Open App.Path & "\arquivo.txt" For Input As #Ler
While Not EOF(Ler)
Line Input #Ler, Nome
Gravar = FreeFile
Open App.Path & "\" & Nome & ".txt" For Output As #Gravar
Print #Gravar, Nome 'aqui vc grava o nome dentro do novo txt se, não quiser apaga
Close #Gravar
Wend
Close #Ler
End Sub