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
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
Natural de Salvador-BA, é graduado em Analise de Sistemas pela Universidade Católica do Salvador (2003), e especialista em Engenharia de Software pela Universidade Salvador (2010). Exerce atualmente o cargo de Analista Judiciário na Justiça do Trabalho.