Πώς μπορώ να Μετονομασία πολλών αρχείων με ημερομηνία χρήση της Visual Basic

; Microsoft δημοσιεύει το Visual Basic γλώσσα προγραμματισμού ως μέρος της σουίτας ανάπτυξης Visual Studio . Ανάμεσα στις πολλές χρήσεις του επιτρέπει στους χρήστες να αυτοματοποιήσει επαναλαμβανόμενες , απλές εργασίες στους υπολογιστές τους, που διαφορετικά πρέπει να εκτελέσετε με το χέρι . Μια τέτοια κοινή εργασία μετονομασία πολλών αρχείων , η οποία είχε σχεδόν σε κάθε χρήστη του υπολογιστή για να κάνουμε τουλάχιστον μια φορά - οδηγώντας πολλούς να αναρωτιούνται αν υπάρχει ένας καλύτερος τρόπος . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο της Visual Basic κάνοντας κλικ στο " Αρχείο" - " . New Project" > Ονομάστε το " . Μαζική μετονομασία " 2

Χρησιμοποιήστε το ποντίκι για να σύρετε τα δύο συστατικά σε μορφή σας από την εργαλειοθήκη : " . OpenFileDialog " a " κουμπί" και Το " κουμπί" θα πρέπει να προστεθεί στο έντυπο , και το " OpenFileDialog " σε ένα μικρό γκρι κουτί παρακάτω φόρμα σας .
Εικόνων 3

Κάντε κλικ στο " OpenFileDialog1 . " Στο παράθυρο διαλόγου Ιδιότητες , αλλάξτε το " Πολλαπλή " ιδιότητα " αλήθεια ". Αυτό σας επιτρέπει να επιλέξετε περισσότερα από ένα αρχείο .
Η

4 Κάντε διπλό κλικ στο " Button1 " στη φόρμα σας . Αυτό ανοίγει τον κώδικα για αυτό το κουμπί μέσα σε μια υπορουτίνα που ονομάζεται
5

Επικολλήστε τον ακόλουθο εσωτερικό του " Button1_Click " υπορουτίνα " Button1_Click . " :

OpenFileDialog1.ShowDialog ( )

Δημ. αρχεία Όπως 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

Για κάθε f As String Σε αρχεία

Dim Όνομα As String = f.Substring ( f.LastIndexOf ( "\\" ) + 1 , f . Μήκος - f.LastIndexOf ( "\\ " ) - " . " 1 )

My.Computer.FileSystem.RenameFile ( f , CURRENTDATE & & αρχείου )

Επόμενο

Αυτό δείχνει στο χρήστη ένα παράθυρο διαλόγου επιλογής αρχείων των Windows και του επιτρέπει να επιλέξετε τα αρχεία . Στη συνέχεια, δημιουργεί ένα string ημερομηνίας . Τέλος , περνά μέσα από κάθε αρχείο , ένα προς ένα , και προσθέτει την ημερομηνία στην αρχή του ονόματος του αρχείου .
Η
εικόνων