MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]pegar o caminho da pasta

    baldocchi
    baldocchi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 03/11/2014

    [Resolvido]pegar o caminho da pasta Empty [Resolvido]pegar o caminho da pasta

    Mensagem  baldocchi 11/8/2016, 11:18

    Pessoal,

    Eu peguei um código no site da microsoft para selecionar arquivos. Até aí tudo bem, o que eu não sei fazer é pegar o caminho da pasta.

    Olha o código abaixo:

    Private Sub CmdAbrirPasta_Click()
    ' This requires a reference to the Microsoft Office 11.0 Object Library.

    Dim fDialog As Office.FileDialog
    Dim varFile As Variant

    ' Clear the list box contents.
    'Me.FileList.RowSource = ""

    ' Set up the File dialog box.
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    With fDialog
    ' Allow the user to make multiple selections in the dialog box.
    .AllowMultiSelect = True

    ' Set the title of the dialog box.
    .Title = "Select One or More Files"

    ' Clear out the current filters, and then add your own.
    .Filters.Clear
    .Filters.Add "Access Databases", "*.MDB"
    .Filters.Add "Access Projects", "*.ADP"
    .Filters.Add "All Files", "*.*"

    ' Show the dialog box. If the .Show method returns True, the
    ' user picked at least one file. If the .Show method returns
    ' False, the user clicked Cancel.
    If .Show = True Then

    ' ' Loop through each file that is selected and then add it to the list box.
    For Each varFile In .SelectedItems
    TxtCam.Value = varFile
    'Me.FileList.AddItem varFile
    Next
    Else
    MsgBox "You clicked Cancel in the file dialog box."
    End If
    End With
    End Sub


    tem que fazer referência para a Biblioteca Microsoft Office XX Object Library..

    Por favor, alguém pode me ajudar com isso? Obrigado
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]pegar o caminho da pasta Empty Re: [Resolvido]pegar o caminho da pasta

    Mensagem  Alvaro Teixeira 11/8/2016, 11:24

    Olá em que consiste "pegar o caminho da pasta".
    Pode explicar melhor?
    Abraço
    baldocchi
    baldocchi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 03/11/2014

    [Resolvido]pegar o caminho da pasta Empty Re: [Resolvido]pegar o caminho da pasta

    Mensagem  baldocchi 12/8/2016, 07:06

    eu estou tentando fazer um programa que faça uma busca personalizada dentro de pastas que o usuário escolher.

    O código que eu aprendi aqui com nossos colegas mostra como pegar todos os arquivos de dentro de uma pasta.

    Eu queria digitar algo: "mem" e buscar todos os arquivos que tenham "mem" no meio, ou buscar todos os ".xlsx", e assim por diante.

    é quase um gerenciador de arquivos do Windows.

    Como os usuários são muito fracos em Windows, eu queria criar esse idéia para facilitar o trabalho de todos.

    é nisso que consiste minha questão.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]pegar o caminho da pasta Empty Re: [Resolvido]pegar o caminho da pasta

    Mensagem  FabioPaes 12/8/2016, 10:32

    Para pegar o caminho da pasta: Digamos que vc ja tenha o Local completo do arquivo em uma variavel chamada CaminhoDoFicheiro (C:\Pasta123\Teste.xls)

    Basta colocar algo assim:
    MsgBox Left(CaminhoDoFicheiro, (Len(CaminhoDoFicheiro) - Len(Dir(CaminhoDoFicheiro))))

    Agora, sua mensagem anterior leva a outro assunto...
    Veja esse topico: https://www.maximoaccess.com/t27599-pesquisar-arquivos-em-pastas-e-subpastas-access-vba


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    baldocchi
    baldocchi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 03/11/2014

    [Resolvido]pegar o caminho da pasta Empty Re: [Resolvido]pegar o caminho da pasta

    Mensagem  baldocchi 12/8/2016, 14:39

    muito obrigado, vou tentar e te falo.

    Fique em Paz!

    Abs
    baldocchi
    baldocchi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 03/11/2014

    [Resolvido]pegar o caminho da pasta Empty Re: [Resolvido]pegar o caminho da pasta

    Mensagem  baldocchi 12/8/2016, 14:53

    Amigo,

    Funcionou perfeitamente.

    Agora, posso fazer outra pergunta?

    É o seguinte, eu tenho o código abaixo que varre as pastas e subpastas atrás de todos os arquivos.
    Eu gostaria de fazer uma pesquisa por parte do nome.
    Você sabe como eu posso fazer isso por favor?

    Function ListaArquivosESubPastas(ByVal path$) As String
    On Error GoTo ProcErr
    Dim Fsfd, Fd, Sfd, f1, Fls, Itn$
    If path = "" Then Exit Function
    Set Fsfd = CreateObject("Scripting.FileSystemObject")
    Set Fd = Fsfd.GetFolder(path$)
    xFd = strCaminho
    Do While Fd.path <> ".."
    For Each Fls In Fd.files
    Debug.Print Fd.path$ & "\" & Fls.Name
    xFd = Fd
    Next Fls
    LocArq
    For Each Sfd In Fd.SubFolders
    f1 = f1 + 1

    Itn = Sfd.Name

    lstArquivos.AddItem Fd.path$ & "\" & Itn

    ListaArquivosESubPastas Fd.path$ & "\" & Itn & "\"

    lstArquivos.Requery
    txtTotArq.Requery
    ' LocArq

    Next
    GoSub Proc_Sai
    Loop
    Proc_Sai:
    Set Fsfd = Nothing: Set Fd = Nothing: Set Sfd = Nothing: Set f1 = Nothing
    Exit Function
    ProcErr:
    If Err = 76 Then Resume Proc_Sai
    MsgBox Err & vbCr & Err.Description
    Resume Next

    End Function
    Function LocArq()
    Dim FileSystem As Object
    Dim Folder As Object
    Dim File As Variant

    Me.Requery

    Set FileSystem = CreateObject("Scripting.FileSystemObject")

    Set Folder = FileSystem.GetFolder(xFd)

    For Each File In Folder.files
    lstArquivos.AddItem File.Name
    'lstArquivos.Requery
    Next
    End Function
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]pegar o caminho da pasta Empty Re: [Resolvido]pegar o caminho da pasta

    Mensagem  Alvaro Teixeira 9/9/2016, 20:10

    Olá Leandro,
    Para não misturar temas, será melhor criar um tópico novo.
    Se desejar, pode fazer referencia a este.
    Obrigado pelo retorno e não se esqueça de dar este tópico como resolvido.
    Abraço
    baldocchi
    baldocchi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 03/11/2014

    [Resolvido]pegar o caminho da pasta Empty Re: [Resolvido]pegar o caminho da pasta

    Mensagem  baldocchi 1/3/2019, 09:31

    tópico resolvido

    Conteúdo patrocinado


    [Resolvido]pegar o caminho da pasta Empty Re: [Resolvido]pegar o caminho da pasta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:07