|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Função que Abre um Arquivo Texto e Retorna seu Conteúdo
|
 |
|
|
|
Postada em 8/10/2000 por Webmaster
webmaster@vbweb.com.br
Function AbreArquivo(sArquivo As String) As String
Dim iARQ As Integer
Dim sLinha As String
Dim sResult As String
iARQ = FreeFile
Open sArquivo For Input As iARQ
Do While Not EOF(iARQ)
'Pega o conteúdo da linha
Line Input #iARQ, sLinha
'Quebra a linha e concatena (soma) o resultado
sResult = sResult + Chr(13) & Chr(10) + sLinha
Loop
AbreArquivo = sResult
'Fecha o arquivo
Close iARQ
End Function
'P/ usar:
Text1.Text = AbreArquivo("C:\Texto.TXT")
|
|
|
|
|
