Excluindo partes do nome de um arquivo

Quem me conhece, sabe que sou fã do mp3 e gosto de ter meus arquivos organizados.

Às vezes ao baixar algum arquivo, me deparo com nomes dos arquivos acrescidos do nome do site de onde 
estou baixando ou mesmo o nome de quem "ripou" o CD.

Por exemplo:

ABBA - When I Kissed The Teacher [NomeDeQuemRipou].mp3

Para excluir esse "[NomeDeQuemRipou]" resolvi criar um código muito simples, mas que ajuda bastante.

Cansei de fazer um por um ... :-)



Segue o código:



Option Compare Database
Option Explicit

Public Sub RenomeiaArquivos()

    Dim caminho As String
    Dim origem As String
    Dim destino As String
    Dim eliminar As String
    Dim arquivo As String
    
    caminho = "C:\Documents and Settings\Kazu\Meus documentos\Downloads\Bee Gees\"
    eliminar = "[NomeDeQuemRipou]"
    
    arquivo = Dir(caminho & "*.mp3")
    
    Do Until arquivo = ""
        DoEvents
        origem = arquivo
        arquivo = Replace(arquivo, eliminar, "")
        FileCopy caminho & origem, caminho & arquivo
        Kill caminho & origem
        arquivo = Dir
    Loop
    
    MsgBox "OK", vbOKOnly
    Exit Sub
    
    
End Sub

Provider no VBA do Access

Na empresa onde trabalho, temos diversas versões do Access em uso e além disso, vários bancos de dados que ainda estão no formato .mdb.
Ao alterar um código onde estava acessando um mdb, precisei ajustar o provider para JET.OLEDB.4.0 e resolvi tentar o seguinte: por que não colocar o provider do Access 2010 em todos?
Ficou assim:
Provider=Microsoft.ACE.OLEDB.12.0

Ficou mais fácil, aí não precisamos se o acesso vai ser num arquivo accdb ou mdb.

;-)

Colocar senha em arquivo ZIP no Windows 7

Uma das (boas) funcionalidades do Windows XP que era a possibilidade de colocar senha em arquivos compactados pelo próprio sistema operacional (através do comando Enviar Para > Pasta Compactada) simplesmente sumiu no Windows 7.

Numa breve pesquisa no site da Microsoft, é recomendado utilizar um compactador de terceiros que, segundo o site custa a partir de U$ 30.

Sabemos que existem vários compactadores “free” como o 7Zip, mas era interessante ter no próprio Windows, pois nem todas as empresas que utilizam softwares licenciados costumam instalar programas gratuitos por motivos diversos.

Uma pena...

 

L