Pesquisar na Comunidade
Mostrando resultados para as tags ''Shell.Application''.
Encontrado 1 registro
-
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
-
- VB6
- Visual Basic 6
- (e %d mais)