Een van de metadata tags die optioneel kan worden bevestigd om bestanden in Windows is een versienummer . Deze waarde biedt een snelle manier om nieuwere en oudere versies van hetzelfde bestand differentiëren . En aangezien VBS heeft toegang tot bestandsversies , kunt u VBS gebruiken om de reactie van een systeem neemt om nieuwe versies van bestanden beschikbaar komen automatiseren . . Instructies
1 Open uw favoriete tekstverwerker kopen van 2 Plak het volgende script :
dim FSO = CreateObject ( " Scripting.FileSystemObject " ) < br dim file1 > = " C : \\ file.exe "
dim bestand2 = " C : \\ file2.exe " dim file1version , file2version
indien ( FSO.FileExists ( file1 ) EN FSO.FileExists ( file2 ) dan file1version
= FSO.GetFileVersion ( file1 ) file2version
= FSO.GetFileVersion ( file2 ) op dim resultaat = StrComp ( file1version , file2version , vbTextCompare ) op Twitter als resultaat > 0 dan WScript.StdOut.WriteLine
( " File 2 is een nieuwere versie . " ) op Twitter ElseIf resultaat < 0 dan WScript.StdOut.WriteLine
( " File 1 is een nieuwere versie . " ) Else WScript.StdOut.WriteLine ( " Beide versies
zijn hetzelfde . " ) einde
als einde
als
Deze controleert eerst dat beide bestanden bestaan . Als ze dat doen , het maakt gebruik van de " StrComp " ( voor" String vergelijking " ) functie om de twee versies van bestanden te vergelijken . Tenslotte drukt het een resultaat naar de standaard uitvoer .
3 Sla uw werk .
< br >
|
