Hvordan kan jeg omdøbe flere filer med en dato ved hjælp af Visual Basic?

Microsoft udgiver Visual Basic programmeringssprog som en del af Visual Studio udvikling suite. Blandt sine mange anvendelsesmuligheder er at tillade brugere at automatisere gentagne, simple opgaver på deres computere, som de ellers har brug for at udføre manuelt. En sådan fælles opgave er at omdøbe flere filer, som næsten alle computerbrugere har måttet gøre mindst én gang - hvilket fik mange til at undre sig, hvis en bedre måde eksisterer.

Vejledning

1

Opret et nyt projekt i Visual Basic ved at klikke på "File" - ". Nyt projekt"> Name it "Batch Rename".

2

Brug musen til at trække to komponenter på din form fra værktøjskassen: ". OpenFileDialog" a "knap", og en "Button" vil blive tilfø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 en fil.

4

Dobbeltklik på "Button1" på din formular. Dette åbner kode for knap indenfor et underprogram med navnet "Button1_Click."

5

Indsæt følgende inde i "Button1_Click" subrutine:

OpenFileDialog1.ShowDialog()

Dim files 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 files

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

My.Computer.FileSystem.RenameFile(f, currentDate & "." & filename)

Next

Dette viser brugeren en Windows filvalgsdialog og tillader ham at vælge de filer. Det skaber derefter en dato streng. Endelig går gennem hver fil, én efter én, og tilføjer datoen til begyndelsen af ​​filnavnet.


relaterade artiklar