LER ARQUIVO TEXTO

SENAMA 24/06/2011 11:23:31
#377665
Bom dia pessoal

Tenho o código abaixo:

Dim sPath as string = [Ô]C:\[Ô]
Dim Tipo as Object = [Ô]*.RET[Ô]

For Each strArquivo In Directory.GetFiles(sPath, Tipo)
ExisteArquivo = True
Next


Agora surgiu uma nova necessidade eu preciso pegar arquivos com
extensão [Ô]*.RET[Ô] e também [Ô]*.DAT[Ô] como fazer ?
PROGRAMADORVB6 24/06/2011 12:14:41
#377674
Olá colega.
Crie uma classe com o nome : Funcoes

  
Imports System.IO
Public Class Funcoes
Public Shared Function GetAppPath() As String
        Dim i As Integer
        Dim strAppPath As String
        strAppPath = System.Reflection.Assembly.GetExecutingAssembly.Location()
        i = strAppPath.Length - 1
        Do Until strAppPath.Substring(i, 1) = [Ô]\[Ô]
            i = i - 1
        Loop
        strAppPath = strAppPath.Substring(0, i)
        Return strAppPath
    End Function

Public Shared Function ExisteFicheiro(ByRef Caminho_Ficheiro As String) As Boolean

        If IO.File.Exists(Caminho_Ficheiro) Then
            ExisteFicheiro = True
        Else

            ExisteFicheiro = False
        End If
    End Function
End Function


Depois para utilizar :
 Msgbox(funcoes.ExisteFicheiro(Funcoes.GetAppPath() & [Ô]\Nome do ficheiro.Extensão[Ô]) )


Devolve True ou False se encontrar o ficheiro com a extensão pretendida.
Nota : A Função GetAppPath() devolve o caminho onde se encontra o executavel, convém os ficheiros estarem ao pé do seu executavel, caso voce queira pôr o caminho por si é só eliminar o interior da função : ExisteFicheiro()
Espero ter ajudado.
Até uma próxima.
Programadorvb6
Tópico encerrado , respostas não são mais permitidas
Voltar