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:  Localizar um arquivo na maquina
Postada em 24/8/2003 por Ð@®l@n            
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
 


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