|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Arquivos/Diretórios)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Função que Abre um Arquivo Texto e Retorna seu Conteúdo
|
![](images/box01dirsup.gif) |
|
|
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")
|
|
|
|
![](images/hosted.gif)
|