MPR-Skript: Alle Dateiversionen von Dateien in einem Verzeichnis auflisten

Moderator: MVogt

Post Reply
User avatar
Theo_Gottwald
Posts: 348
Joined: 03. Oct 2009, 08:57
Location: Herrenstr.11 * 76706 Dettenheim
Contact:

MPR-Skript: Alle Dateiversionen von Dateien in einem Verzeichnis auflisten

Post by Theo_Gottwald » 21. Sep 2019, 09:03

Da ist er der Supportfall. Frage ist dann "hat der Kunde von allen Dateien auch die aktuellen Versionen?"
Wie kann man das prüfen?

Hier kann der MPR helfen in dem er von allen DLL und EXE-Dateien
in einem beliebigen Verzeichnis (&alle Unterverzeichnisse) die Dateiversionen auflistet und in eine Textdatei schreibt.

Diese kann man dem Support geben und der kann es mit seiner Version abgleichen.

Hier ein Skript das alle Versionen von Dateien im MPR-Ordner auflistet.
Die Datei mit dem Ergebnis wird auf dem Desktop abgelegt.

Code: Select all

' +++ Version-Check.rem +++
' Zweck:  Ermittelt die Versionsinformationen der MPR-Dateien
'
' Serie: 1
'
' erstellt am: 06.05.2020
' von: Theo Gottwald
'========================
'
'#EXE:?path
'#SPI:AutoSettings
'#FDC:Ask
'#MAN:ra
'
KRM\2

' Die folgende Zeile einkommenteiren um die Datei im  Editor ablaufen zu sehen.
' DED\1

' Hier wird der Installationspfad des MPR ermittelt.
IAI\Matrix42 Package Robot
   VAR\$$PAT=$v5$
EAI\


' Get MPR-File-Versions
VAR\$$dat=$date$
FMT\$$dat|long date
VAR\$$daa=$date$
FMT\$$daa|yyyymmdd

VAR\$$FID=$ev4$\MPR-Versions $$daa.txt
VAR\$$TXT=Matrix42 Package Robot file version report $$dat$crlf$
DEL\$$FID
VAR\$$LST=42

NAI\
   SBT\5||Matrix42 Package Robot not installed!

   END\
EAI\
FEF\$$PAT|*.dll|doit|$$FIL@!
FEF\$$PAT|*.exe|doit|$$FIL@!

CTF\$$FID<$$TXT
@

:doit
GFT\$$FIL
VAR\$$FOL=$v2$
GFV\$$FIL>$$FVE
ALB\$$FIL
VAR\$$FIZ=$v1$
GFI\$$FIL
VAR\$$FDD=$v2$
SBD\|$$FDD|$sp$|1
VAR\$$FDD=$v1$
GSB\RSet
GSB\RSetV
VAR\$$TXT=$$TXT$crlf$$$FIZ
VAR\$$TXT=$$TXT$tab$
VAR\$$TXT=$$TXT$$FVE$tab$ - $$FDD from $$FOL
@

:LSet
GSL\$$FIZ>$$LEN
FOR\$$CNT|$$LEN|12
   VAR\$$FIZ=$sp$$$FIZ
NXT\
RET\

:RSet
GSL\$$FIZ>$$LEN
FOR\$$CNT|$$LEN|$$LST
   VAR\$$FIZ=$$FIZ$sp$
NXT\
RET\

:RSetV
GSL\$$FVE>$$LEN
FOR\$$CNT|$$LEN|12
   VAR\$$FVE=$$FVE$sp$
NXT\
RET\


@

Post Reply

Return to “Package Robot”

Who is online

Users browsing this forum: No registered users and 1 guest