none
Gerar arquivo TXT RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

     

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Jesiel,

     

    Era isto que eu precisava.

     

    Muito obrigado.

     

    T+

     

    Jairo

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