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]Criar atalho de pasta na área de trabalho do pc

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 14/03/2011

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  Ronaldo Costa 12/4/2022, 13:08

    Olá pessoal!

    Tenho uma subpasta chamada "boletins" que está dentro da pasta "meusistema" na unidade C:\.
    Como posso, via vba, ao clicar em um botão criar um atalho da pasta boletins na área de trabalho do pc?


    grato...
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4940
    Registrado : 20/04/2011

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty Re: [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  Silvio 12/4/2022, 13:19

    Bom dia.

    Melhor fazer via Windows mesmo, com o botão direito do mouse sobre a pasta que quer criar atalho.
    Mais fácil e simples.


    Mas, se quiser via vba, segue o link.

    https://www.maximoaccess.com/t10398-resolvidocriar-atalho-de-uma-macro-para-fora-do-access-via-codigo


    Última edição por Silvio em 12/4/2022, 13:21, editado 1 vez(es) (Motivo da edição : acréscimo de mensagem)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 14/03/2011

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty Re: [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  Ronaldo Costa 12/4/2022, 14:40

    Oi Sílvio. Obrigado pelo retorno.

    Criei uma rotina que gera os boletins de alunos de uma determinada turma, no seguinte caminho: C:\meusistema\Boletins
    Para que o usuário não precise percorrer o caminho usando o explore, acho melhor que haja um atalho da pasta "boletins" na área de trabalho.

    Quando o usuário for usar este recurso pela primeira vez, caso a pasta "boletins" não exista, gostaria que o sistema criasse a pasta "boletins" dentro da pasta "meusistema" e também o atalho da pasta "boletins" na área de trabalho.

    Já tentei aqui mas não consigo.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4940
    Registrado : 20/04/2011

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty Re: [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  Silvio 12/4/2022, 15:03

    De experiência própria....crie a pasta e um atalho para ela no desktop manualmente....vai ganhar muito mais tempo.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 14/03/2011

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty Re: [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  Ronaldo Costa 12/4/2022, 15:17

    Com todo respeito ao profissional que você certamente é e a sua generosidade em querer me ajudar, acho que não é o melhor caminho para um sistema. Vou tentar explicar porque acho isso. Caso instale o sistema e esqueça de criar esta pasta manualmente, o que pode acontecer, pois somos falhos, quando o usuário executar esta função pela primeira vez, poderá ficar frustrado. Esperarei um pouco mais aqui, caso ninguém possa me ajudar nisto, darei o tópico como reslçvido e usarei a sua ideia.

    grato...
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4940
    Registrado : 20/04/2011

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty Re: [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  Silvio 12/4/2022, 15:26

    Eis alguns links para te auxiliar no desenvolvimento do teu sistema.

    https://www.maximoaccess.com/t16745-resolvidocriar-pasta ...se encontra aqui no fórum

    www.youtube.com/watch?v=Gq4EsK51Tlg&ab_channel=MarceloDavid-Treinamentos ...um dos membros aqui do fórum


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 14/03/2011

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty Re: [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  Ronaldo Costa 12/4/2022, 16:11

    Grato. Irei verificar.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty Re: [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  DamascenoJr. 12/4/2022, 22:12

    Com a ferramenta de busca achei o tópico do link abaixo... e adaptei. Bem simples. (Salve, Marcelo)
    https://www.maximoaccess.com/t38292-cria-atalho-do-projeto-no-desktop-do-usuario-atual

    Código:
    Public Sub subCriaAtalho()
    'Autor: Marcelo David
    'Data: 04/08/2020
    'Propósito: criar ícone do aplicativo na área de trabalho do usuário ao executar o programa
    Dim wsc As Object
    Dim lnk
    Dim strPathDesktop As String, strPasta As String

    On Error GoTo TrataErro

        'Instancio o Windows Scripting Host
        Set wsc = CreateObject("wscript.shell")
        
        'Obtendo o path do desktop do usuário atual
        strPathDesktop = wsc.SpecialFolders("Desktop")
        
        strPasta = "c:\esd"
        
        'Instanciando um objeto do tipo atalho (lnk) e já definindo o desktop do usuário atual
        Set lnk = wsc.CreateShortcut(strPathDesktop & "\" & Split(strPasta, "\")(UBound(Split(strPasta, "\"))) & ".lnk")
        
        'Verificando se já existe atalho e caso sim, apaga para criar o novo
        If Dir(strPathDesktop & "\" & Split(strPasta, "\")(UBound(Split(strPasta, "\"))) & ".lnk") <> "" Then
            Kill strPathDesktop & "\" & Split(strPasta, "\")(UBound(Split(strPasta, "\"))) & ".lnk"
        End If
        
        'Difinindo o aplicativo a ser executado ao clicar no link
        lnk.TargetPath = strPasta
        
        'Definindo a propriedade de "Iniciar em" do atalho (diretório de trabalho)
        lnk.WorkingDirectory = strPasta
        
        'Salvando o link
        lnk.Save
        
        'Apagando da memória o objeto Windows Scripting Host e o link
        Set lnk = Nothing 'Nem precisava apagar esse, já que é filho de wsc, mas para manter o bom hábito de apagar variávais de objetos
        Set wsc = Nothing
        
    Exit Sub
        
    TrataErro:
        MsgBox Err.Description, vbExclamation, "Erro " & Err.Number & " ao criar atalho"
    End Sub

    PS: sugiro não ter uma função que crie um atalho, mas sim um botão que abra a pasta.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Marcelo David gosta desta mensagem

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 14/03/2011

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty Re: [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  Ronaldo Costa 28/4/2022, 15:32

    Estou tentando adaptar. Acho que vai dar certo!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty Re: [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  DamascenoJr. 29/4/2022, 02:01

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 14/03/2011

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty Re: [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  Ronaldo Costa 3/5/2022, 01:40

    Funcionou perfeitamente.

    Apenas fiz uma alteração (linha vermelha) e criei um módulo. Transformei a sub em função para que possa usar em mais de um formulário.

    Muito grato!!!!!

    ----------------------------------------------

    Public Sub subCriaAtalho()
    'Autor: Marcelo David
    'Data: 04/08/2020
    'Propósito: criar ícone do aplicativo na área de trabalho do usuário ao executar o programa
    Dim wsc As Object
    Dim lnk
    Dim strPathDesktop As String, strPasta As String

    On Error GoTo TrataErro

       'Instancio o Windows Scripting Host
       Set wsc = CreateObject("wscript.shell")
       
       'Obtendo o path do desktop do usuário atual
       strPathDesktop = wsc.SpecialFolders("Desktop")
       
      strPasta = CurrentProject.Path & "\Boletins"
       
       'Instanciando um objeto do tipo atalho (lnk) e já definindo o desktop do usuário atual
       Set lnk = wsc.CreateShortcut(strPathDesktop & "\" & Split(strPasta, "\")(UBound(Split(strPasta, "\"))) & ".lnk")
       
       'Verificando se já existe atalho e caso sim, apaga para criar o novo
       If Dir(strPathDesktop & "\" & Split(strPasta, "\")(UBound(Split(strPasta, "\"))) & ".lnk") <> "" Then
           Kill strPathDesktop & "\" & Split(strPasta, "\")(UBound(Split(strPasta, "\"))) & ".lnk"
       End If
       
       'Difinindo o aplicativo a ser executado ao clicar no link
       lnk.TargetPath = strPasta
       
       'Definindo a propriedade de "Iniciar em" do atalho (diretório de trabalho)
       lnk.WorkingDirectory = strPasta
       
       'Salvando o link
       lnk.Save
       
       'Apagando da memória o objeto Windows Scripting Host e o link
       Set lnk = Nothing 'Nem precisava apagar esse, já que é filho de wsc, mas para manter o bom hábito de apagar variávais de objetos
       Set wsc = Nothing
       
    Exit Sub
       
    TrataErro:
       MsgBox Err.Description, vbExclamation, "Erro " & Err.Number & " ao criar atalho"
    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Criar atalho de pasta na área de trabalho do pc Empty Re: [Resolvido]Criar atalho de pasta na área de trabalho do pc

    Mensagem  DamascenoJr. 3/5/2022, 01:41

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 6/10/2022, 08:11