Discussion :

[rafuoner]

Bonjour à tous,

Je suis assez nouveau dans la programmation windows et j'ai un script vbs à mettre à jour.
Ce script lance un executable, je voudrais simplement vérifier les paramètres de cet executable avant de le lancer pour de bon.

Exemple :
J'ai un fichier c:\temp\setup.exe. Quand on fait un clic droit + properties sur le fichier, on voit a valeur "test" visible dans le champ "Title" du tab "Summary" (voir screenshot en attache)

Je voudrais savoir comment je peux accéder via script la valeur de ce champ.

Merci de votre aide !!!

[rafuoner]

J'ai trouvé cette discussion-ci qui me dit comment aller voir les différentes infos que l'on peut retrouver dans le table 'version' du fichier, mais pas dans le tab 'summary'.

Donc je chauffe, mais c'est pas encore cela...

[I'm_HERE]

salut,

essayes ceci:

tifile.bat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
@Echo oFF
  If Not Exist "%~f1" Exit /B 2
  Call :prop "%~1" >>"%Temp%.\~.vbs"
   Set $titre=non defini 
   For /f "delims=" %%a in ('
      Cscript -nologo "%Temp%.\~.vbs"^&
      Erase "%Temp%.\~.vbs" /F
  ') Do Set "$titre=%%a"
 Set $titre
goto :EOF
 
:prop
echo Set o=createObject("shell.application").namespace("%~dp1")
echo wsh.echo o.getdetailsof(o.parsename("%~nx1"),10)
Exit /B 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
c:\> tifile.bat setup.exe
$title=mon titre

<EDIT>
le code est du batch
</EDIT>

[minnesota]

salut,

dans quel intérêt faire ça ?

[SfJ5Rpw8]

Bonsoir,

Inspirer d'un source VB6 : Informations "Avancée" d'un fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
   Option Explicit
   dim chemin,fichier
   dim objShell
   dim objFolder
   dim oItem
 
    chemin="c:\temp"
    Fichier="setup.exe"
 
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace(Chemin) 'adapter le chemin
    Set oItem = objFolder.Items.Item(Fichier) 'adapter le fichier
    Msgbox objFolder.GetDetailsOf(oItem, 10)

[rafuoner]

bbil & I'm Here : un grand merci les 2 fonctionnent, je vais sans doute partir vers une solution script pure plutôt que VB6 puisque c'est cela que je récupère à la base.

dans quel intérêt faire ça ?

Je suis en train de créer un application launcher.

Le but faire une application qui vérifie la version de l'exe installée, la compare avec une version recommandée stockée quelque part.
Si ce n'est pas la même version, je voudrais voir si dans le program cache de Windows le setup.exe de la version recommandée est là.
Si oui je l'installe, et je lance l'application une fois installée.
Si non je sors avec un message d'erreur.

Je ne suis pas propriétaire du "setup.exe" mais je peux changer certaines propriétés du fichier avant de le distribuer.

[minnesota]

ok, merci.