? Microsoft pubblica il linguaggio di programmazione Visual Basic come parte della suite di sviluppo Visual Studio . Tra i suoi molti usi sta permettendo agli utenti di automatizzare le attività ripetitive , semplici sui loro computer che altrimenti necessitano di eseguire a mano. Un tale compito comune è rinominare file multipli , che quasi ogni utente di computer ha avuto a che fare almeno una volta - spingendo molti a chiedersi se esiste un modo migliore . Istruzioni
1

Creare un nuovo progetto in Visual Basic facendo clic su " File " - " . New Project" > Il nome " Batch Rename ".
2

Usa il mouse per trascinare i due componenti nel form dalla casella degli strumenti : un "Button " e un " OpenFileDialog ". Il " pulsante " verrà aggiunto al form , e il " OpenFileDialog " per una piccola scatola grigia sotto la vostra forma .
3

Fare clic su " OpenFileDialog1 . " Nella finestra Proprietà , modificare la proprietà " Multiselezione " a "true ". Ciò consente di selezionare più di un file .
4

doppio clic su " Button1 " sul modulo . Questo apre il codice per il pulsante all'interno di una subroutine denominata
5

Incollare il seguente all'interno della subroutine " Button1_Click " " Button1_Click ". :

OpenFileDialog1.ShowDialog ( ) per

Dim file As String () = OpenFileDialog1.FileNames ( ) per

Dim DataCorrente As String = My.Computer.Clock.LocalTime.Date.Year & My.Computer.Clock.LocalTime.Date.Month & mia . Computer.Clock.LocalTime.Date.Day

For Each f As String Nel file

Dim filename As String = f.Substring ( f.LastIndexOf ( " \\ " ) + 1 , f . Lunghezza - f.LastIndexOf ( " \\ " ) - " . " 1 ) per

My.Computer.FileSystem.RenameFile (f, CurrentDate & & nomefile ) per

Successivo

Questo mostra all'utente una finestra di selezione file di Windows e permette di selezionare i file . Si crea quindi una stringa data . Infine, si passa attraverso ogni file , uno per uno , e aggiunge la data e l'inizio del nome del file .

• Come controllare per un processo di applicazione in Visual Basic NET 
• Come impostare Visual Basic 6.0