? Microsoft publicerar Visual Basic-programmering språk som en del av Visual Studio utveckling svit . Bland dess många användningsområden är att tillåta användare att automatisera repetitiva , enkla uppgifter på sina datorer som de annars måste utföra för hand . En sådan gemensam uppgift är döpa flera filer , vilket nästan alla datoranvändare har haft att göra minst en gång - vilket fick många att undra om ett bättre sätt existerar . Instruktioner
1
Skapa ett nytt projekt i Visual Basic genom att klicka på " File " - " . Nytt projekt " > Namnge den " Batch Rename . "
2
Använd musen för att dra två komponenterna på din form från verktygslådan : a " Button " och en " OpenFileDialog . " Den " Button " kommer att läggas till formen , och den " OpenFileDialog " till en liten grå ruta nedanför formuläret .
3
Klicka på " OpenFileDialog1 . " I fönstret Egenskaper , ändra " MultiSelect " egenskap till " true ". Detta gör att du kan välja mer än en fil .
4
Dubbelklicka på " Button1 " på ditt formulär . Detta öppnar koden för den knappen inom en subrutin med namnet
5
Klistra in följande innanför " Button1_Click " subrutin " Button1_Click . " :
OpenFileDialog1.ShowDialog ( ) katalog
Dim filer As String ( ) = OpenFileDialog1.FileNames ( ) katalog
Dim currentDate As String = My.Computer.Clock.LocalTime.Date.Year & My.Computer.Clock.LocalTime.Date.Month & My . Computer.Clock.LocalTime.Date.Day
För varje f As String In filer
Dim filnamn As String = f.Substring ( f.LastIndexOf ( " \\ " ) + 1 , f . Längd - f.LastIndexOf ( " \\ " ) - " . " 1 ) katalog
My.Computer.FileSystem.RenameFile ( f , currentDate & & filnamn ) katalog
Nästa
Detta visar användaren en Windows filvalsdialogruta och tillåter honom att välja filer . Det skapar då en datumsträng . Slutligen går det igenom varje fil , en efter en , och lägger till datum till början av filnamnet .
