Arquivo da tag: Bookmarks

Exportando os favoritos do Google chrome como atalhos

Se existia uma coisa boa no navegador Internet Explorer era a forma como ele armazenava os seus favoritos. Salvava cada bookmark em um atalho individual (*.url) que facilitava no momento de realizar o backup e na hora de organizar os favoritos.

Infelizmente, o Google Chrome – utilizando o Gerenciador de Favoritos – permite apenas que todos os favoritos sejam exportados como um único arquivo *.html. Não é possível salvar os atalhos para cada uma das páginas que você tem armazenada.

Caso você queira salvar os atalhos individualmente, terá que abrir o arquivo exportado e clicar em cada um dos links contidos arrastando-os para a área de trabalho; isso levaria muito tempo para terminar.

Antigamente, eu havia solucionado este problema fazendo da seguinte forma:

  • Exportava os favoritos do Google Chrome, para um arquivo chamado Bookmarks.html
  • Importava o arquivo Bookmarks.html no gerenciador de favoritos do Internet Explorer
  • E finamente, copiava os atalhos gerados pelo Internet Explorer – que ficam armazenados na pasta “Meus DocumentosFavoritos”.

Porém, pesquisando, encontrei uma solução para este problema!

Em um discussão no SuperUser.com um usuário postou um script que faz tudo quase automático! Basta seguir os passos:

  • Crie uma pasta em C:Bookmarks
  • No Gerenciador de Favoritos do Google Chrome, exporte os favoritos para o arquivo Bookmarks.html e salve-o na pasta C:Bookmarks
  • Copie o código abaixo, e cole-o em um arquivo texto dando o nome para ele de  “Bookmarks.vbs” – Salve-o na mesma pasta citada acima.
  • Execute o arquivo Bookmarks.vbs. Ele irá ler o arquivo Bookmarks.html e irá gerar todos os atalhos *.url

<br />
Const ForReading = 1, ForWriting = 2, ForAppending = 8, CreateIfNeeded = true<br />
outpath = &quot;C:Bookmarks&quot;<br />
Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)<br />
bookmarkfile = &quot;Bookmarks.html&quot;<br />
Set bookmarks = objFSO.OpenTextFile(bookmarkfile, ForReading)<br />
Set regEx = New RegExp<br />
regEx.Global = True<br />
Set regEx2 = New RegExp<br />
regEx2.Global = True<br />
regEx2.Pattern = &quot;[^a-zA-Z0-9-_.]&quot;</p>
<p>regEx.Pattern = &quot;&lt;DT&gt;&lt;A HREF=&quot;&quot;(.*)&quot;&quot; ADD_DATE.*&gt;(.*)&lt;/A&gt;&quot;<br />
do until bookmarks.AtEndOfStream<br />
  line = bookmarks.readline()<br />
  if regEx.test(line) then<br />
    shortcut = regEx.Replace(line,&quot;$1&quot;)<br />
    filename = trim(regEx.Replace(line,&quot;$2&quot;))<br />
    filename = Regex2.Replace(filename, &quot;_&quot;)<br />
    filename = outpath &amp; left(filename, 80) &amp; &quot;.url&quot;<br />
    'wscript.echo filename<br />
    'the following skips invalid filenames, you should add a routine to filter out invalid filename characters in your codeset<br />
    on error resume next<br />
    Set objFile = objFSO.OpenTextFile(filename, ForWriting, CreateIfNeeded)<br />
    if err.number &lt;&gt; 0 then<br />
      wscript.echo err.description<br />
    end if<br />
    objFile.write &quot;[InternetShortcut]&quot; &amp; vbcrlf &amp; &quot;URL=&quot; &amp; shortcut<br />
    objFile.close<br />
  end if<br />
loop<br />