Carregar imagem de pasta específica

[costaribeiro]

Olá, pessoal.
Bom dia.

Tenho um formulário de cadastro e nele carrego foto da pessoa cadastrada. No entanto, gostaria que, quando clicasse no botão para carregar imagem, abrisse uma pasta específica, em "D:\Diretorio\Clientela", por exemplo.
Esse é o código:

Código: Selecionar todos

Private Sub Busca_imagem_Click()

        Foto = Application.GetOpenFilename(fileFilter:="picture file,*.jpg")
        FotoCliente.Picture = LoadPicture(Foto)
    
End Sub

Alguém pode dar uma forcinha?
Obrigado

[Reinaldo]

Experimente:

Código: Selecionar todos

Private Sub Busca_imagem_Click()
Dim Foto As String
ChDrive "D:\"
ChDir "D:\Diretorio\Clientela"

Foto = Application.GetOpenFilename(fileFilter:="picture file,*.jpg")
FotoCliente.Picture = LoadPicture(Foto)
End Sub

[costaribeiro]

Reinaldo, valeu. Deu certo.
Muito obrigado.