Bom dia à todos

 

Alguém saberia me dizer como eu faço para localizar o diretório de um determinado arquivo ???

 

exemplo, eu preciso "achar" o diretório do word.exe na máquina, para que ao executar um botão de abrir um .doc ele pegue exatamente o diretório do word e abra, pq se não achar eu vou emitir uma mensagem dizendo que o usuário tem que instalar o word

 

Obrigado

Dê uma olhada nesta dica:

 

 

Jayme

Obrigado, mas não serve, seria mais alguma coisa do tipo

 

retorne o diretório do word.exe, pois nem sempre vai estar em c:arquivos de programas...word.exe, entendeu ???

 

obrigado pela ajuda

Squall,

 

Também tive essa necessidade e achei postado em algum forum, não lembro qual, a seguinte função, para meu uso funcionou sem problemas.

 

Essa função retorna o caminho completo do arquivo.

 

Private Sub Form_Load()

    Dim Achou
           
    Achou = Procura_Arquivo("c:", "meu_arquivo.txt")

End Sub

 

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

 

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

huuumm, interessante, API, vou dar uma olhada

 

agradeço as ajudas

Dê uma olhada: