USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página