Ett av metadatataggar som eventuellt kan knytas till filer i Windows är ett versionsnummer . Detta värde ger ett snabbt sätt att differentiera nyare och äldre versioner av samma fil . Och eftersom VBS har tillgång till filversioner kan du använda VBS att automatisera reaktionen ett system tar till nya filversioner som blir tillgängliga . . Instruktioner
1
Öppna din favorit texteditor
2
Klistra in följande skript :
dim FSO = CreateObject ( " Scripting.FileSystemObject " )
dim file1 = " C : \\ file.exe "
dim file2 = " C : \\ file2.exe "
dim file1version , file2version
om ( FSO.FileExists ( fil1 ) OCH FSO.FileExists ( file2 ) sedan
file1version = FSO.GetFileVersion ( fil1 ) katalog
file2version = FSO.GetFileVersion ( file2 ) katalog
dim resultatet = StrComp ( file1version , file2version , vbTextCompare ) katalog
om resultatet > 0 då
WScript.StdOut.WriteLine ( " File 2 är en nyare version . " ) katalog
Elseif resultat < 0 då
WScript.StdOut.WriteLine ( " File 1 är en nyare version . " ) katalog
Else
WScript.StdOut.WriteLine ( " Båda versionerna är detsamma . " ) katalog
slut om
slut om
kontrollerar först att båda filerna finns . Om de gör , använder den " StrComp " ( för " String jämförelse " ) funktionen för att jämföra de två filversionerna . Slutligen skriver den ett resultat till standard ut .
3
Spara ditt arbete . Addera
