• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Cybernavigator

Criar atalhos em VB.net em pastas especiais

2 mensagens neste tópico

Ora bem, eu tive a ver umas cenas na net e tudo o que encontrei era com ficheiros dlls interops.

Não sei pk, funcionou a primeira vez e depois não.

Bom, a alternativa que encontrei foi em vez de criar um ficheiro .lnk, criar um .url.

e então aqui vai o código.

    Public Sub aplicacaoParaDesktop(ByVal linkNome As String)
        Dim DirDesk As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Using writer As New System.IO.StreamWriter(DirDesk & "\" & linkNome & ".url")
            Dim app As String = System.Reflection.Assembly.GetExecutingAssembly().Location
            writer.WriteLine("[internetShortcut]")
            writer.WriteLine("URL=file:///" & app)
            writer.WriteLine("IconIndex=0")
            Dim icon As String = app.Replace("\"c, "/"c)
            writer.WriteLine("IconFile=" + icon)
            writer.Flush()
        End Using
    End Sub

bom, e para usar é só alicacaoparadesktop("nomeaki")

para eliminar

    Public Sub aplicacaoEliminar(ByVal linknome As String)
        Dim deskDir As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Try
            System.IO.File.Delete(deskDir + "\" + linknome + ".url")
        Catch ex As Exception

        End Try
    End Sub

e igual  aplicacaoEliminar("nomeaki")

Espero que gostem e dê jeito :thumbsup:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não percebi muito bem para que é que é... Podias explicar-me como se eu fosse muito burro?  :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora