Wie kann ich Umbenennen mehrerer Dateien mit ein Datum mit Visual Basic?

April 13

Microsoft veröffentlicht die Programmiersprache Visual Basic als Teil der Visual Studio-Entwicklung-Suite. Unter seinen vielen Verwendungen ermöglicht es Benutzern, sich wiederholenden, einfache Aufgaben auf ihren Computern zu automatisieren, die sie sonst per hand ausführen müssen. Eine solche gemeinsame Aufgabe ist mehrere Dateien umbenennen, die fast jeder PC-Nutzer hatte mindestens einmal--dazu aufgefordert zu Fragen, ob es ein besserer Weg gibt es viele.

Anweisungen

1 Erstellen Sie ein neues Projekt in Visual Basic, indem Sie auf "Datei"--> "Neues Projekt". Nennen Sie es "Stapelverarbeitung umbenennen."

2 Verwenden Sie Ihre Maus, um zwei Komponenten aus der Toolbox auf das Formular ziehen: ein "Button" und "OpenFileDialog." Der "Button" wird die Form und die "OpenFileDialog" um einen kleinen grauen Kasten unterhalb des Formulars hinzugefügt werden.

3 Klicken Sie auf die "OpenFileDialog1." Ändern Sie im Eigenschaftenfenster die Eigenschaft "Multiselect" auf "True." Dadurch können Sie mehrere Dateien auswählen.

4 Doppelklicken Sie auf dem Formular "Button1". Daraufhin wird den Code für diese Schaltfläche innerhalb eine Unterroutine namens "Button1_Click."

5 Fügen Sie die folgenden innerhalb des Unterprogramms "Button1_Click":

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

Dies zeigt dem Benutzer ein Windows-Datei-Auswahldialog und erlaubt ihm, um die Dateien auszuwählen. Anschließend wird eine Datumszeichenfolge erstellt. Schließlich geht es durch die einzelnen Datei, eins nach dem anderen, und fügt das Datum am Anfang des Dateinamens.