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

[sourcecode lang=”VB”]
Const ForReading = 1, ForWriting = 2, ForAppending = 8, CreateIfNeeded = true
outpath = "C:Bookmarks"
Set objFSO = CreateObject("Scripting.FileSystemObject")
bookmarkfile = "Bookmarks.html"
Set bookmarks = objFSO.OpenTextFile(bookmarkfile, ForReading)
Set regEx = New RegExp
regEx.Global = True
Set regEx2 = New RegExp
regEx2.Global = True
regEx2.Pattern = "[^a-zA-Z0-9-_.]"

regEx.Pattern = "<DT><A HREF=""(.*)"" ADD_DATE.*>(.*)</A>"
do until bookmarks.AtEndOfStream
line = bookmarks.readline()
if regEx.test(line) then
shortcut = regEx.Replace(line,"$1")
filename = trim(regEx.Replace(line,"$2"))
filename = Regex2.Replace(filename, "_")
filename = outpath & left(filename, 80) & ".url"
‘wscript.echo filename
‘the following skips invalid filenames, you should add a routine to filter out invalid filename characters in your codeset
on error resume next
Set objFile = objFSO.OpenTextFile(filename, ForWriting, CreateIfNeeded)
if err.number <> 0 then
wscript.echo err.description
end if
objFile.write "[InternetShortcut]" & vbcrlf & "URL=" & shortcut
objFile.close
end if
loop
[/sourcecode]