Vamos Aprender como criar um programa para abrir arquivos de texto (txt)
Primeiro, Insira um commandbutton com o nome cmdOpen
Segundo, Insira um textbox com o nome textfiletext
Terceiro, Insira outro textbox com o nome textfilename
Insira o comando Option Explicit no inicio do código
Agora adicione o seguinte código ao evento click do botão cmdOpen:
Dim
fnum As Integer
Dim txt As String
On Error GoTo OpenError
fnum = FreeFile
Open txtFileName For Input As fnum
txt = Input$(LOF(fnum), #fnum)
Close fnum
txtFileText = txt
Exit Sub
OpenError:
MsgBox "Error " & Format$(Err.Number) & _
" opening file." & vbCrLf & _
Err.Description
Exit Sub
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco
