Πώς να Συγκρίνετε Εκδόσεις αρχείων με VBS

Μία από τις ετικέτες μεταδεδομένων που μπορεί προαιρετικά να συνδεθεί με τα αρχεία των Windows είναι ένας αριθμός έκδοσης . Αυτή η τιμή παρέχει ένα γρήγορο τρόπο για να διαφοροποιήσει νεότερες και παλαιότερες εκδόσεις του ίδιου αρχείου . Και επειδή VBS έχει πρόσβαση σε εκδόσεις αρχείων , μπορείτε να χρησιμοποιήσετε το VBS για την αυτοματοποίηση της αντίδρασης ένα σύστημα παίρνει σε νέες εκδόσεις του αρχείου που θα καταστεί διαθέσιμη . Οδηγίες
Η

1 Ανοίξτε τον αγαπημένο σας επεξεργαστή κειμένου 2

Επικολλήστε τον ακόλουθο σενάριο : .

Dim FSO = CreateObject ( " Scripting.FileSystemObject " )

dim file1 = " C : \\ file.exe "

dim file2 = " C : \\ file2.exe "

αμυδρό file1version , file2version

αν ( FSO.FileExists ( file1 ) ΚΑΙ FSO.FileExists ( file2 ), τότε

file1version = FSO.GetFileVersion ( file1 )

file2version = FSO.GetFileVersion ( file2 )

dim αποτέλεσμα = StrComp ( file1version , file2version , vbTextCompare )

εάν το αποτέλεσμα > 0 τότε

WScript.StdOut.WriteLine ( « Αρχείο 2 είναι μια νεότερη έκδοση . " )

ElseIf αποτέλεσμα <0 τότε

WScript.StdOut.WriteLine ( " File 1 είναι μια νεότερη έκδοση . " )

υπόλοιπα

WScript.StdOut.WriteLine ( "Και οι δύο εκδόσεις είναι το ίδιο . " )

τέλος, αν

τελειώσει αν

αυτήν πρώτους ελέγχους που υπάρχουν και τα δύο αρχεία . Αν το κάνουν , χρησιμοποιεί το " StrComp " ( για " String σύγκριση » ) συνάρτηση για να συγκρίνουμε τις δύο εκδόσεις αρχείων . Τέλος , θα εκτυπώσει ένα αποτέλεσμα στην κανονική έξοδο .
εικόνων 3

Αποθηκεύστε την εργασία σας .
εικόνων