sábado, 18 de outubro de 2014

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.

;-)


quarta-feira, 1 de outubro de 2014

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

 

Pesquisar este blog

Arquivo do blog

Quem sou eu

Minha foto
Administrador de Empresas/Técnico em Processamento de Dados. Microsoft Office User Specialist - Excel Proficient. Pós-graduado em Business Intelligence.