Discussion :

[ghbdtn]

Bonjour,

Je programme en VB.net et j'ai besoin de chercher un fichier particulier (en fait trouver le chemin complet de LibreOffice Writer, fichier swriter.exe).

Voici le code qui s'exécute lorsque mon programme démarre :

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
16
Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Dim exe_lo
 
        Dim directory = "C:\Program Files\"
        For Each filename As String In IO.Directory.GetFiles(directory, "*exe", IO.SearchOption.AllDirectories)
 
            Dim fName As String = IO.Path.GetFileName(filename)
 
            If fName = "swriter.exe" Then
                exe_lo = filename
                MsgBox("OK")
            End If
 
        Next
 
    End Sub

Ce code génère une exception UnauthorizedAccessException car je n'ai pas accès au dossier C:\program Files\winows nt\Accessoires.

Le code est fonctionnel si je mets Dim directory = "C:\Program Files\LibreOffice 5"

Suivant les PC sur lesquels le programme sera exécuté, ça peut être LibreOffice 4 ou 5 et pourquoi pas installé dans un autre chemin.

Comment dire au programme de ne pas crier ou d'esquiver les dossiers dont je n'ai pas les droits ?

J'ai tenté de mettre On Error Resume Next en vain.
J'aurais bien essayé avec un Try/Catch, sauf que l'exception se passe dans le For Each.

A moins qu'il existe une autre manière de trouver ce fichier "swriter.exe" ?

Merci

[jopopmk]

Salut,

peut-être que tu pourrais trouver ce path dans la base de registre, comme ça pas besoin de savoir où il a été installé, ou de quelle version il s'agit (tant que l'exécutable s'appelle pareil) . Exemple (en C#, nécessite le using de Microsoft.Win32) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// la fonction qui fait le taff
public string GetAppPath(string filename) {
	string appPath = @"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\";
	RegistryKey key = Registry.LocalMachine.OpenSubKey(appPath + filename);
	if (key != null) {
		object path = key.GetValue(null);
		if (path != null) return path.ToString();
	}
	return null;
}
 
// l'appel à la fonction, quelque part dans ton code : on affiche le path si trouvé, "not found" si null
MessageBox.Show(GetAppPath("swriter.exe") ?? "not found");

[clementmarcotte]

Bonjour,

Une chose qui marche chez-moi; du moins des fois. Lancer Visual Studio en tant qu'administrateur avant de relancer ton code.

[François DORIN]

J'aurais bien essayé avec un Try/Catch, sauf que l'exception se passe dans le For Each.

En quoi est-ce un soucis ? Il est tout à fait possible de mettre un bloc Try/Catch dans le For Each

[wallace1]

bonjour,

je rejoins l intervention de jopopmk
Lorsque l on souhaite connaitre le chemin complet d une application installée, la lecture de la clé adequate dans le registre fournit d excellents resultats.
Cependant personnellement j opterais pour chercher a ces emplacements du registre pour obtenir davantage d informations :

Code :

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

HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\

et

Code :

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

HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\

Ton projet doit cibler l architecture processeur : AnyCPU

A+

[themine702]

tu me rappelle mon premier virus(cheval de trois) en .net (ce n'est pas une bonne idée de faire en .net par expérience

enfaite faut juste que l'app soit ouverte en admin et tu doit changer un paramètre qui ferait que l'app s'ouvrera tjrs en admin (meme si tu l'ouvre en admin tu dois changer se paramètre)
apres j'a pas la moindre idée d'ou est ce paramètre essaie sur google : toujours ouvrir une app vb.net en admin tu devrait trouver

[themine702]

si tu veut trouver une application installé normalement l’installateur devrait mettre une clés sur le registre avec cette info, c'est là ou faut chercher