USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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")
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página