[Resolvido]Gravar caminho do arquivo num Textbox

Prezados

Boa noite
Como faço para gravar somente o caminho de um arquivo num textbox?

copie e cole o codigo abaixo

Código:

Sub wzGetFileName()

   Dim wzhwndOwner As Long
   Dim wzAppName As String
   Dim wzDlgTitle As String
   Dim wzOpenTitle As String
   Dim wzFile As String
   Dim wzInitialDir As String
   Dim wzFilter As String
   Dim wzFilterIndex As Long
   Dim wzView As Long
   Dim wzflags As Long
   Dim wzfOpen As Boolean
   Dim ret As Long
   
   WizHook.Key = 51488399
   
   wzhwndOwner = 0&
   wzAppName = "Anexar Propostas"
   wzDlgTitle = "Abri o documento"
   wzOpenTitle = "Abrir o documento"
   wzFile = String(255, Chr(0))
   wzInitialDir = ""
   wzFilter = "Arquivos em PDF " _
   & "(*.pdf)"
   wzFilterIndex = 1
   wzInitialDir = CurrentProject.Path & "\"
   wzView = 1
   wzflags = 64
   wzfOpen = True

   ret = WizHook.GetFileName(wzhwndOwner, _
           wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _
           wzInitialDir, wzFilter, wzFilterIndex, _
           wzView, wzflags, wzfOpen)
       
   ' Si no se ha pulsado el botón Cancelar (-302)
   If ret <> -302 Then
   Me.seu campo texto = wzFile 'aqui você coloca seu campo texto
   End If

End Sub


e no evento click de algum botão coloque

wzGetFileName  'chama o codigo acima

Bom dia senhores.

A nível de esclarecimento:
TextBox não grava nada e sim exibe um texto seja do banco ou de qualquer outra forma.

Imagino que você queira salvar o caminho no bando e exibir em uma textbox. E para isso
há diversos exemplos prontos aqui.

Marcelo David
Correto, só me exprimi errado.

ifahidalgo
O código funcionou perfeitamente, mais só precisava gravar o caminho, tirando o nome do arquivo.

Consegui

Ficou assim

Dim fDlg As Office.FileDialog
Dim lPasta As String

Set fDlg = Application.FileDialog(msoFileDialogFilePicker)
With fDlg
.Title = "Selecione um diret?rio tempor?rio..."
End With

'Retorna a pasta selecionada
If fDlg.Show = -1 Then
lPasta = fDlg.SelectedItems(1)
Me.txt_Diretorio = Left(lPasta, InStrRev(lPasta, "\", -1))
End If