AJUDA COM ABERTURA DE TEXTOS

PEGUDO 12/01/2010 14:24:27
#331688
Boa tarde galera,

Preciso que me ajudem da seguinte forma:
1. Tenho um formulário com um menu Arquivo / Últimas consultas, que abre um formulário, chamado [Ô]FormUltimasConsultas[Ô], onde se guarda, automaticamente, em um arquivo, o dia que o usuário utilizou o programa (o código para isto já está feito e funcionando);
2. Este arquivo [Ô]Datas.txt[Ô], é gravado no diretório corrente da aplicação, pelo uso do App.Path - App.Path & [Ô]\Datas.txt[Ô];
3. Quando o Formulário [Ô]FormUltimasconsultas[Ô] fosse aberto, o programa deveria ler o arquivo gravado (App.Path & [Ô]\Datas.txt[Ô]) e jogar todo os dias gravados, para dentro de uma Listbox (List1);

Aí está meu problema: Quando se tenta abrir o formulário FormUltimasConsultas, o programa dá o erro que está na imagem.

Abaixo segue o código:

Private Sub Form_Load()
Dim Fs as FileSystemObject
Dim Datas As Date
Dim Escrever As String

Datas = Format(Now, [Ô]dd/MM/yyyy[Ô])

If Not Fs.FileExists(App.Path & [Ô]\Datas.txt[Ô]) Then
Open App.Path & [Ô]\Datas.txt[Ô] For Input As #1
While Not EOF(1)
Line Input #1, Escrever
List1.AddItem Escrever
Wend
Close #1
Else
MsgBox [Ô]Esta é sua primeira consulta![Ô], vbInformation, [Ô]Tamanduá[Ô]
List1.AddItem Datas
End If
End Sub

Se alguém puder me ajudar ou tiver um jeito mais fácil eu agradeço muito.
valeu, amigos.
WEBMASTER 12/01/2010 14:37:40
#331690 Resposta escolhida
Dim Fs as FileSystemObject
para
Dim Fs as new FileSystemObject

E alem disso tua condicao esta errada !

If Not Fs.FileExists(App.Path & [Ô]\Datas.txt[Ô]) Then
para
If Fs.FileExists(App.Path & [Ô]\Datas.txt[Ô]) Then
PEGUDO 12/01/2010 14:42:01
#331691

Ok. Tudo funcionando direitinho.
Valeu pela ajuda.
Tópico encerrado , respostas não são mais permitidas
Voltar