? Microsoft udgiver Visual Basic programmeringssprog som en del af Visual Studio udvikling suite. Blandt dens mange anvendelser er at tillade brugere at automatisere gentagne , simple opgaver på deres computere , som de ellers har brug for at udføre ved hånden. En sådan fælles opgave er omdøbning flere filer , som næsten hver computer bruger har måttet gøre mindst én gang - hvilket fik mange til at undre sig, hvis en bedre måde eksisterer. Instruktioner
1
Opret et nyt projekt i Visual Basic ved at klikke på "File " - ". Nyt projekt "> Name it " Batchomdøbning ".
2
Brug musen til at trække to komponenter på din form fra værktøjskassen : a " knap" og en " OpenFileDialog ". Den " knap" vil blive føjet til formularen , og " OpenFileDialog " til en lille grå boks under din formular .
3
Klik på " OpenFileDialog1 ". I vinduet Egenskaber ændre " Multiselect " ejendom til "true ". Dette giver dig mulighed for at vælge mere end én fil.
4
Dobbeltklik på " Button1 " på din formular. Dette åbner koden for denne knap inden en subrutine navngivet
5
Indsæt følgende inde i " Button1_Click " subrutine " Button1_Click ". : Hej
OpenFileDialog1.ShowDialog ()
< p > Dim filer 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
For Each f As String In filer
Dim filename As String = f.Substring ( f.LastIndexOf ( "\\ " ) + 1 , f . længde - f.LastIndexOf ( "\\ " ) - " ". 1)
My.Computer.FileSystem.RenameFile ( f, CURRENTDATE & & filename)
Næste
< p > Dette viser brugeren en Windows filvalgsdialog og tillader ham at vælge de filer . Det opretter derefter en dato streng. Endelig går det igennem hver fil , én efter én, og tilføjer datoen til begyndelsen af filnavnet .