MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    API do Windows para encontrar ficheiros

    avatar
    Convidad
    Convidado


    API do Windows para encontrar ficheiros Empty API do Windows para encontrar ficheiros

    Mensagem  Convidad 14/1/2011, 15:55

    Podem testar, criando um txt de nome teste.txt em C:\
    Abrir a janela Immediate com as teclas Ctrl+G, e digitar

    ?ProcuraFicheiros("teste.txt")


    Colem num modulo novo;

    Private Declare Function apiSearchTreeForFile Lib "imagehlp" Alias "SearchTreeForFile" _
    (ByVal RootPath As String, _
    ByVal InputPathName As String, _
    ByVal OutputBuffer As String) As Long

    Private Const MAX_PATH = 260

    Function ProcuraFicheiros(strFile As String, Optional varPath As Variant) As String
    'Função para retornar o local de um arquivo, pelo nome, procurando em profundidade
    'strFile - O nome do arquivo a ser encontrado, exemplo ProcuraFicheiros("teste.txt")
    'varPath (Opcional) - o caminho para começar a procurar o arquivo, exemplo ProcuraFicheiros("teste.txt","C:")

    Dim strRetorna As String
    Dim strEncontrado As Long
    If IsMissing(varPath) Then varPath = "C:" 'Drive por defeito para a procura, mas procura em todas as existentes
    strRetorna = String(MAX_PATH, 0)
    strEncontrado = apiSearchTreeForFile(varPath, strFile, strRetorna)
    If strEncontrado <> 0 Then
    ProcuraFicheiros = Left(strRetorna, InStr(strRetorna, Chr(0)) - 1)
    End If
    End Function



      Data/hora atual: 8/11/2024, 03:14