Visual Basic 6 - Precisa localizar um arquivo  ? Que tal uma função em VB para fazer o serviço? 


Faça o seguinte:

 

1-) Inicie um novo projeto no VB e Insira um módulo no seu projeto na opção Project|Add Module 

2-) Agora vamos ao código.

 

Código do módulo:
Declaramos a função encontrada na DLL IMAGEHLP.DLL  presente no diretorio c:\windows\system

 
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

Código do formulário padrão:

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
A função Procura_Arquivo que utilizará a função API para localizar o arquivo retorna o caminho e nome do arquivo ou Nulo se não achar.

Basta chamar a função informando o drive e  nome do arquivo a localizar. Ex:  Msgbox Procura_Arquivo("c:\" , "Biblio.mdb")....        

Bye... 

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

  Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:


José Carlos Macoratti