Rechercher un fichier et noter son emplacement

Version imprimable

29/05/2012, 11h31
Cachlab

Rechercher un fichier et noter son emplacement

Bonjour à tous,

J'aurais besoin d'un coup de main pour un script de désinstallation silencieuse ...
Le script est un peu long pour le coller ici, mais je bloque à l'utilisation du fichier de réponse qui se trouve dans un répertoire différent pour chaque poste. :aie:

Voilà, je recherche un fichier qui s'appelle "internal_uninst.iss".
Je sais qu'il se trouve dans "C:\Program Files\InstallShield Installation Information", mais je ne sais pas dans quel sous-répertoire.

Exemple :
C:\Program Files\InstallShield Installation Information\{54BF11BA-FD5A-11D6-945E-00E0187F6F16} ---> il n'est pas là !
C:\Program Files\InstallShield Installation Information\{90EFD56B-B08D-44E0-9A7D-7ECDB930ABDE} ---> il n'est pas là !
C:\Program Files\InstallShield Installation Information\{98D89F8E-55BA-4DFB-83CF-EFF82ECFC7B4} ---> Ah il est là !

Et donc, récup de la variable "C:\Program Files\InstallShield Installation Information\{98D89F8E-55BA-4DFB-83CF-EFF82ECFC7B4}"

J'imagine qu'il y a une histoire de récursivité, ce doit être tout bête, mais je n'appréhende pas encore bien le concept ! :oops:
Alors merci d'avance de votre aide.

Hello,
Comme tu dis c'est une histoire de récursivité.
Donc voila :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
Option Explicit 
Dim FileName,Location
ReDim Location(0)
FileName = LCase("File")
FindFile("C:\Scripts")
MsgBox Join(Location,vbCr)
 
Sub FindFile(ThisFolder)
    Dim File
    Dim Folder
    Dim System 
    Set System = CreateObject("Scripting.FileSystemObject")
    For Each Folder In System.GetFolder(ThisFolder).SubFolders
       For Each File In Folder.Files
          If LCase(File.Name) = FileName Then
            'WScript.Echo File.ParentFolder
             Location(Ubound(Location)) = File.ParentFolder
             ReDim Preserve Location(Ubound(Location) + 1)
          End If
       Next 
       Call FindFile(Folder)
    Next
 
    Set System = Nothing
END Sub

Par contre le comportement de ton application (Au niveau installation) est un peu bizar ....
Tu n'as pas l'information dans le registre à cet emplacement:

Code:

1
2
 
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

Cordialement

Salut Cubitus !
Merci beaucoup pour ta réponse, c'est exactement ce qu'il me fallait !

Concernant ta question sur la clé de registre, mon souci est le même car la clé est aléatoire également :
Code:

1 2 3 HKLM\SOFTWARE\Nom_Appli\Installation Wizard\...\{09B6657B-C723-404D-8337-28ED13C51E38} UninstallString (REG-SZ) = "C:\...\setup.exe /s /f1"C:\Program Files\InstallShield Installation Information\{09B6657B-C723-404D-8337-28ED13C51E38}\internal_uninst.iss [...]""
Bref, même souci via le registre alors j'ai préféré la recherche recursive dans le système de fichier plutôt que dans la BDR ! :)
Mais je te l'accorde, la désinstall de cette appli est plutôt bizarre ... :?

Merci encore ! :ccool: