none
Gerar arquivo TXT RRS feed

  • Pergunta

  •  

    Olá pessoal,

     

    Como faço para gerar este script abaixo que faz uma coleta dos FAVORITOS do IE para um arquivo TXT ? Neste exemplo ele apenas aparece na tela pelo "Wscript.Echo".

     

    Const FAVORITES = &H6&

     

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(FAVORITES)
    Set objFolderItem = objFolder.Self
    Wscript.Echo objFolderItem.Path

     

    Set colItems = objFolder.Items
    For Each objItem in colItems
        Wscript.Echo objItem.Name
    Next

     

     

    Abraços

     

    Jairo

    terça-feira, 6 de janeiro de 2009 01:55

Respostas

  • Olá,

    Segue o código:

    Const FAVORITES = &H6&

     
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(FAVORITES)
    Set objFolderItem = objFolder.Self

    Set objLogFile = objFSO.OpenTextFile("c:\teste.txt", 8, True, 0)
    Wscript.Echo objFolderItem.Path

     

    Set colItems = objFolder.Items
    For Each objItem in colItems
    objLogFile.WriteLine objItem.Name

    Next

    objLogFile.Close



    Altere o caminho do arquivo e faça os testes.

    Até mais,

    Jesiel
    terça-feira, 6 de janeiro de 2009 14:06

Todas as Respostas

  • Olá,

    Segue o código:

    Const FAVORITES = &H6&

     
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(FAVORITES)
    Set objFolderItem = objFolder.Self

    Set objLogFile = objFSO.OpenTextFile("c:\teste.txt", 8, True, 0)
    Wscript.Echo objFolderItem.Path

     

    Set colItems = objFolder.Items
    For Each objItem in colItems
    objLogFile.WriteLine objItem.Name

    Next

    objLogFile.Close



    Altere o caminho do arquivo e faça os testes.

    Até mais,

    Jesiel
    terça-feira, 6 de janeiro de 2009 14:06
  • Jesiel,

     

    Era isto que eu precisava.

     

    Muito obrigado.

     

    T+

     

    Jairo

    sexta-feira, 9 de janeiro de 2009 03:44