Vamos criar hoje um programa muito simples para localizar arquivos, mas que pode ser muito útil, vamos lá então
Crie um módulo e insira o código abaixo nele:
Declare
Function SearchTreeForFile Lib "IMAGEHLP.DLL" (ByVal lpRootPath
As String, _
ByVal lpInputName As String, ByVal lpOutputName As String) As Long
Public Const MAX_PATH = 260
Insira o código abaixo ao seu projeto:
Public Function Procura_Arquivo(Caminho As String, NomeArquivo As String) As String
Dim lNullPos As Long
Dim lResultado As Long
Dim sBuffer As String
On Error GoTo Procura_Arquivo_Error
'Aloca espaco para
a string sBuffer
sBuffer = Space(MAX_PATH * 2)
'inicia busca do arquivo
lResultado = SearchTreeForFile(Caminho, NomeArquivo, sBuffer)
' Se houver um caracter
Nulo , remove
If lResultado Then
lNullPos = InStr(sBuffer, vbNullChar)
If Not lNullPos Then
sBuffer = Left(sBuffer, lNullPos - 1)
End If
'Retorna o nome do arquivo encontrado
Procura_Arquivo = sBuffer
Else
'nao achou nada
Procura_Arquivo = vbNullString
End If
Exit Function
Procura_Arquivo_Error:
Procura_Arquivo = vbNullString
End Function
Insira um botão(command1) e uma caixa de texto(text1.text), no seu formulário
Insira o código abaixo no evento click do botão:
MsgBox Procura_Arquivo("c:\", Text1.Text)
Quando clicar no botão o programa irá localizar o arquivo, o nome do arquivo a ser localizado deve estar escrito na caixa de texto.
Para baixar o Projeto Clique Aqui
© 2009 Todos os Direitos Reservados a Tornado Digital Página Principal - Dicas e Truques - Frases - Downloads - Forúm - Fale Conosco
