Selecionar endereço Pelo SHELL

[RicardoCarvalho]

Boa tarde pessoal.

Meu primeiro post vem com uma dúvida que creio que é simples para alguns.

Estou construindo uma tela que permite que o usuário selecione onde será salvo o seu arquivo, e eu darei o nome para o arquivo.

O problema é que o código que estou utilizando não verifica mapeamentos de rede, e não consigo utilizar endereço padrão para que se necessário o usuário nem selecione o endereço.

Preciso de um help urgente!

Abs.

CODE:

Option Explicit

Private Enum BIF_OPTIONS_ENUM

BIF_RETURNONLYFSDIRS = &H1&

BIF_DONTGOBELOWDOMAIN = &H2&

BIF_RETURNFSANCESTORS = &H8&

BIF_EDITBOX = &H10&

BIF_VALIDATE = &H11&

BIF_NEWDIALOGSTYLE = &H40&

BIF_BROWSEINCLUDEURLS = &H80&

BIF_USENEWUI = BIF_EDITBOX Or BIF_NEWDIALOGSTYLE

BIF_UAHINT = &H100&

BIF_NONEWFOLDERBUTTON = &H200&

BIF_NOTRANSLATETARGETS = &H400&

BIF_BROWSEFORCOMPUTER = &H1000&

BIF_BROWSEFORPRINTER = &H2000&

BIF_BROWSEINCLUDEFILES = &H4000&

BIF_SHAREABLE = &H8000&

End Enum

Private Sub cmdArquivoGNRE_Click()

On Error GoTo DeuErro

Dim Folder As Object

With CreateObject("Shell.Application")

Set Folder = .BrowseForFolder(hWnd, "Pick a folder", BIF_RETURNONLYFSDIRS _

Or BIF_SHAREABLE _

Or BIF_NEWDIALOGSTYLE _

Or BIF_NONEWFOLDERBUTTON)

End With

If Folder Is Nothing Then

txtArquivoGNRE.Text = ""

Else

txtArquivoGNRE.Text = Folder.Self.path

End If

Exit Sub

DeuErro:

End Sub

Editado Fevereiro 5, 2015 por RicardoCarvalho