Cómo comparar versiones de archivos con VBS

Una de las etiquetas de metadatos que opcionalmente se pueden conectar a archivos en Windows es un número de versión . Este valor proporciona una manera rápida para diferenciar las versiones anteriores y más recientes del mismo archivo . Y como VBS tiene acceso a versiones de archivos , puede utilizar VBS para automatizar la reacción de un sistema de toma de nuevas versiones de los archivos que estén disponibles . Instrucciones .
1

abra su editor de texto favorito
2

Pega el siguiente script:

dim FSO = CreateObject ( " Scripting.FileSystemObject ")

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

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

dim file1version , file2version

si ( FSO.FileExists ( archivo1 ) Y FSO.FileExists ( archivo2 ) entonces

file1version = FSO.GetFileVersion ( archivo1 )

file2version = FSO.GetFileVersion ( archivo2 )

dim resultado = StrComp ( file1version , file2version , vbTextCompare )

si el resultado > 0 entonces

WScript.StdOut.WriteLine ( "File 2 es una nueva versión. " )

ElseIf resultado < 0 entonces

WScript.StdOut.WriteLine ( "File 1 es una versión más nueva. " )

demás

WScript.StdOut.WriteLine ( " Las dos versiones son los mismos. " )

final si

final si

primero comprueba que existen los dos archivos . Si lo hacen , se utiliza el " StrComp "(para " String Comparación ") la función para comparar las dos versiones de los archivos . Finalmente, se imprime el resultado en la salida estándar .
3

Guarde su trabajo .