[Anónimo]

olá pessoal, estou com um problema com um módulo!
tenho um form com um botão que ao clicar chama esse módulo. até ai tudo bem!
esse módulo cria um atalho no desktop com um nome definido por um textbox e atribui um ícone á este atalho!
o problema é que não estou conseguindo definir o nome do ícone a ser usado pelo mesmo textbox.
exemplo: se eu digitar “12345” no textbox e clicar no botão, o módulo vai criar um atalho com o nome “12345” e atribuir o ícone “12345” a ele, mas para atribuir o ícone “12345” ao atalho, no módulo terá que ter o comando ( const sziconname as string = “12345.ico” ).
porem, se eu digitar “67890” no textbox, vai ser criado um atalho com o nome “67890”, mas com o ícone “12345” atribuído.
É possível fazer com que ao clicar no botão, alterar os códigos do módulo com um texto pre determinado??
exemplo: se eu digitar “12345” no textbox e clicar no botão, ele altera o código do módulo para ( const sziconname as string = “12345.ico” ), mas se eu digitar “67890” no textbox e clicar no botão, ele altera o código do módulo para ( const sziconname as string = “67890.ico” ).
conto com a ajuda de vocês, pois me será muito útil!
obrigado….

[jorgerod]

constant: o conteúdo não pode ser modificado. É invariável, por isso é que é chamado constant!

variable: o conteúdo pode ser modificado. É modificável.

[jorgerod]

podes ver melhor o que eu escrevi, em: http://www.excelfunctions.net/vba-variables-and-constants.html

espero que te sirva a leitura.

fica bem.

[Anónimo]

caro jorge, com certeza me foi de grande ajuda!
consegui resolver meu problema atraves do link que voce postou!
o código que estava usando era:
( const sziconname as string = “12345.ico”)
para resolver o problema, alterei para:
dim sziconname as string
sziconname = criar!t1.value & “.ico”

pronto!!!
resolvido o problema!!

muito obrigado pela luz….

[jorgerod]

caro mcjota,

ainda bem que conseguiste resolver o teu problema. É para isso que serve o exceler 🙂

olha, podes postar aqui o código todo do teu módulo, para ser mais perceptível o que pretendias?

obrigado e fica bem!!!!

[Anónimo]

o código completo para criar o atalho e atribuir o icone a ele é o seguinte:

option explicit

sub createdesktopshortcut()

dim szmsg as string
dim szstyle as string
dim sztitle as string
dim sziconname as string

sziconname = criar!t1.value & “.ico”

const szlocation as string = “desktop”
const szlinkext as string = “.lnk”

dim owsh as object
dim oshortcut as object

dim szsep as string
dim szbookname as string
dim szbookfullname as string
dim szpath as string
dim szdesktoppath as string
dim szshortcut as string
dim t1 as string

szsep = application.pathseparator
szbookname = szsep & criar.t1.value
szbookfullname = “d:filmes (avi)” & criar.t1.value & “.bat”
szpath = “d:filmes (avi)0 – capasprontas”

on error goto errhandle
set owsh = createobject(“wscript.shell”)
szdesktoppath = owsh.specialfolders(szlocation)

szshortcut = szdesktoppath & szbookname & szlinkext

set oshortcut = owsh.createshortcut(szshortcut)

with oshortcut
.targetpath = szbookfullname
.iconlocation = szpath & sziconname
.save
end with

set owsh = nothing
set oshortcut = nothing

szmsg = “arquivo e atalho criados com sucesso!”
szstyle = 0
sztitle = “confirmação!”
msgbox szmsg, szstyle, sztitle

exit sub

errhandle:
szmsg = “o atalho não pode ser criado!”
szstyle = 48
sztitle = “erro!”

msgbox szmsg, szstyle, sztitle
end sub

[Anónimo]

caro jorge,

agora percebi que está ocorrendo um erro no atalho!

a propriedade ( iniciar em ) do atalho fica em branco.
esta parte do codigo, atribui o destino do atalho:

.targetpath = szbookfullname

como faço para definir o ( iniciar em ) do atalho??

obrigado..

[Anónimo]

resolvido!!!

apenas adicionei:

.workingdirectory

obrigado…

[jorgerod]

.workingdirectory=”d:”

É isto? diz, para ficar mais compreensível, em conjunto com o código que forneceste abaixo.

também se pode ver a seguinte peça de código, que fará sensivelmente a mesma coisa, ou seja, criar um shortcut no desktop: http://www.ozgrid.com/forum/showthread.php?t=34910

obrigado e fica bem.

[Autor]

Artigos