|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Criando atalhos com WScript.Shell
|
 |
|
|
|
Postada em 31/8/2003 por Ð@®l@n
'coloque em um módulo
Sub Create_Link(lnk_name, target, work_dir, Window_style As Long, icon_file, icon_index)
Set WSHShell = CreateObject("WScript.Shell")
Set f = WSHShell.CreateShortcut(lnk_name & ".lnk")
f.TargetPath = target
f.WorkingDirectory = work_dir
f.WindowStyle = Window_style
If icon_file = "none" Then f.IconLocation = WSHShell.ExpandEnvironmentStrings(icon_file & ", " & icon_index)
f.Save
End Sub
'para chamar a função
Private Sub Command1_Click()
Call Create_Link("teste", "c:\teste.txt", "c:\", 0, 0, 0)
End Sub
|
|
|
|
|
