Come confrontare le versioni dei file con VBS

Uno dei tag di metadati che può opzionalmente essere collegato a file in Windows è un numero di versione . Questo valore fornisce un modo veloce per differenziare più o meno recenti versioni dello stesso file. E poiché VBS ha accesso a versioni dei file , è possibile utilizzare VBS per automatizzare la reazione di un sistema porta a nuove versioni dei file che diventano disponibili . Istruzioni .
1

aprire il vostro editor di testo preferito
2

Incollare il seguente script :

dim FSO = CreateObject ( " Scripting.FileSystemObject " )

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

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

dim file1version , file2version

se ( FSO.FileExists ( file1 ) E FSO.FileExists ( file2 ) allora

file1version = FSO.GetFileVersion ( file1 ) per

file2version = FSO.GetFileVersion ( file2 ) per

dim risultato = StrComp ( file1version , file2version , vbTextCompare ) per

se risultato> 0 allora

WScript.StdOut.WriteLine ( " File 2 è una versione più recente . " ) per

ElseIf risultato < 0 allora

WScript.StdOut.WriteLine ( " File 1 è una versione più recente . " ) per

Else

WScript.StdOut.WriteLine ( " Entrambe le versioni sono la stessa cosa . " ) per

fine se

fine se

prima controlla che esistono entrambi i file . Se lo fanno , si utilizza il " StrComp " ( per" String ) funzione di confronto " per confrontare le due versioni dei file . Infine , viene stampato il risultato sullo standard output .
3

Salvare il lavoro .

• Come fare una galleria di immagini in Visual Basic 6.0 
• Come nascondere l' origine VBS da parte degli utenti