? Microsoft publica a linguagem de programação Visual Basic como parte da suite de desenvolvimento Visual Studio. Entre os seus muitos usos está permitindo que os usuários para automatizar tarefas simples , repetitivas em seus computadores que de outra forma precisa executar com a mão. Um tal tarefa comum é renomear múltiplos arquivos , o que quase todo usuário de computador teve de fazer pelo menos uma vez - o que levou muitos a se perguntar se existe uma maneira melhor . Instruções
1
Crie um novo projeto no Visual Basic , clicando em " File" - " . New Project "> Nomeie-o " . Rename Batch "
2
Use o mouse para arrastar dois componentes para seu formulário da caixa de ferramentas : " . OpenFileDialog " um "botão" e um O "botão" será adicionado ao formulário , eo " OpenFileDialog " para uma pequena caixa cinza abaixo de sua forma .
3
Clique no botão " OpenFileDialog1 ". Na janela Propriedades , altere a propriedade " Multiselect " para "true ". Isso permite que você selecionar mais de um arquivo .
4
Clique duas vezes em "Button1 " em seu formulário. Isso abre o código para esse botão dentro de uma sub-rotina chamada
5
Cole o seguinte dentro do " Button1_Click " sub-rotina " Button1_Click ". :
OpenFileDialog1.ShowDialog ()
arquivos Dim As String () = OpenFileDialog1.FileNames ()
Dim CurrentDate As String = My.Computer.Clock.LocalTime.Date.Year & My.Computer.Clock.LocalTime.Date.Month & My . Computer.Clock.LocalTime.Date.Day
Para Cada f As String Em arquivos
Dim nome As String = f.Substring ( f.LastIndexOf ("\\" ) + 1 , f . Comprimento - f.LastIndexOf ("\\" ) - " ". 1)
My.Computer.FileSystem.RenameFile (f, CurrentDate & & filename)
Próxima
Isso mostra ao usuário uma janela de seleção de arquivos do Windows e lhe permite selecionar os arquivos . Em seguida, cria uma seqüência de data . Finalmente , ele passa por cada arquivo, um por um, e acrescenta a data para o início do nome do arquivo.
