Oque A De Errado?

[PedroBarreto]

oque a de errado?

Private Sub Command1_Click()

Com.InitDir = "c://"

Com.Filter = "Arquivo TXT |*.txt"

Com.ShowOpen

Text1.Text = (Com.FileName)

End Sub

Era para abrir o arquivo txt no text1.text

[Graymalkin]

Text1.Text = (Com.FileName)

Era para abrir o arquivo txt no text1.text

Isso não vai abrir um arquivo nunca... "Com.FileName" só tem o nome do arquivo, não o seu conteúdo. O que você tem que fazer é isso aqui:

n = freefile()
open com.filename for input as #n
conteúdo = input(lof(n), n)
close #n
text1.text = conteúdo

Certo?

Graymalkin

[PedroBarreto]

esplica essas linhasss

n = freefile()

open com.filename for input as #n

conteúdo = input(lof(n), n)

close #n

text1.text = conteúdo

[Graymalkin]

esplica essas linhasss

n = freefile()

open com.filename for input as #n

conteúdo = input(lof(n), n)

close #n

text1.text = conteúdo

Oh brother... você não tem o help do VB aí não? Aliás, algumas funções você pode ver utilizando o Object Browser. Bom, vamos lá:

n = freefile()

Obtém um número identificador de arquivo disponível

open com.filename for input as #n

Abre (OPEN) o arquivo indicado para (FOR) leitura (INPUT) como (AS) o número n. É praticamente uma frase, não?

conteúdo = input(lof(n), n)

A função input() lê uma quantidade desejada de bytes (caracteres) do arquivo. No caso, lof() (Length Of File) retorna o total de bytes do arquivo, portanto o arquivo inteiro será lido. O segundo parâmetro é o número do arquivo.

close #n
text1.text = conteúdo

Precisa explicação?

Abraços,

Graymalkin

[Señor Smoke]

olha o português ae pessoal...