none
Copiar arquivo txt para uma pasta e criar atalho pra ele na área de trabalho RRS feed

  • Pergunta

  • Desenvolver um script para criar um arquivo TXT numa pasta c:\lpa e em seguida criar um atalho na área de trabalho para este arquivo criado.

    O script pode ser colocado num arquivo do drive ou no formato TXT. Não postar como vbs.

    sexta-feira, 1 de dezembro de 2017 22:09

Todas as Respostas

  • Script em VBScript(.vbs).

    'Criar arquivo TXT
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = FSO.CreateTextFile("C:\lpa\TESTE.txt",True)
    
    'Criar atalho 
    set WshShell = CreateObject("Wscript.shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    set oMyShortcut = WshShell.CreateShortcut(strDesktop + "\atalho.lnk")
    oMyShortcut.WindowStyle = 4 
    OMyShortcut.TargetPath = "c:\lpa\TESTE.txt"
    oMyShortCut.Save


    Fábio de Paula Junior

    sexta-feira, 16 de março de 2018 17:55
    Moderador