Discussion :

[ulrick]

Bonjour,

est-ce que vous pourriez me dire comment on peut faire pour recuperer les propriétés d'un fichier exe :
- taille
- date
-editeur
-version
...

Merci d'avance

Ulrick

[bhaal76]

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim fs As Scripting.FileSystemObject
    Dim fichier As File
 
    Set fs = New Scripting.FileSystemObject
    Set fichier = fs.GetFile("chemin de l'exe")
    fs.
    fichier.
 
 
    Set fs = Nothing

entre les propriété du Scripting.Filesystemobject et du File, tu devrai t'en sortir ...



bhaal76

[ulrick]

merci,

mais je ne comprend rien du tout

est-ce que tu peux m'expliquer ?

excuse moi pour mon manque de connaissance

Ulrick

[bhaal76]

pour utiliser l'objet FileSystemObject, il faut dabord ajouter en référence a ton projet (menu projet->référence) "Microsoft Scripting Runtime"

ensuite, tu déclares dans ta procédure

dim fs as scripting.filesystemobject

tu l'instancie (je crois que c'est ça)

set fs = new scripting.filesystemobject

puis tu peut l'utiliser

fs.opentextfile(...)
fs.getfile(...)
(cf l'aide)

fs.getfilename
fs.getfileversion

pour avoir les infos fichier, tu utilises un objet file
dim fichier as file

tu l'instancie
set fichier = fs.getfile("c:\chemin\nomdufichier.exe")

puis tu l'utilises
fichier.DateCreated
fichier.DateLastModified
(cf l'aide)

quand tu a fini, tu libère l'espace mémoire alloué

set fichier = nothing
set fs = nothing

dans le sens inverse de création (comme une pile)

voila voila

bhaal76

[ThierryAIM]

Un exemple :
Cree un projet exe standard

declare la référence projet : Microsoft scripting Runtime
Declare le composant Microsoft commondialog

Sur ta form tu colles un textbox avec la propriété multiligne = true,
un bouton et un commondialog
et tu colle ce code dans le bouton :

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
17
 
Private Sub Command1_Click()
Dim fs As Scripting.FileSystemObject
    Dim fichier As File
    With CommonDialog1
        .ShowOpen
    Set fs = New Scripting.FileSystemObject
    Set fichier = fs.GetFile(.FileName)
 
    Text1.Text = Text1.Text & _
        fichier.DateCreated & vbCrLf & _
        fichier.DateLastModified & vbCrLf & _
        fichier.ParentFolder & vbCrLf & _
        fichier.Path
    Set fs = Nothing
    End With
End Sub

tu lance et tu regarde ce qui se passe

[DarkVader]

Le FSO ne retournera que les infos fichierSystem (taile, dates créa ...)
et non les infos de l'exécutable.

Voir plutôt du coté de l'api GetFileVersionInfo

[ulrick]

Merci à tout les 2 mais il y a plus de propriétés dans un fichier exe,
l'auteur, la version, le fournisseur,...
c'est ça qui m'interesse.

je viens de trouver un prog qui me permet d'avoir toutes ces infos mais avec des API

Merci encorepour votre aide

Ulrick

[mustang-ffw02]

Je voudrais savoir s'il est possible d'utiliser ce code mais sans passer par le commonDialog C'est a dire en spécifiant a quelque part le chemin du fichier.

En clair, je veux utiliser un fichier contenu dans une string, et donc pas d'interface utilisateur pour le choix du fichier.

C'est possible ou il faut changer de code?

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
Private Sub Ouvrir_Click()
Dim fs As Scripting.FileSystemObject
Dim fichier As File
    With CommonDialog1
        .ShowOpen
    Set fs = New Scripting.FileSystemObject
    Set fichier = fs.GetFile(.FileName)
 
    TxtDateCreated.Text = fichier.DateCreated
    TxtDateLastModified.Text = fichier.DateLastModified
    TxtParentFolder.Text = fichier.ParentFolder
    TxtPath.Text = fichier.Path
    Set fs = Nothing
    End With
End Sub

[mustang-ffw02]

Okay, j'ai réussi a trouver avec le code de bhaal76.

Est-ce que quelqu'un peut me dire ou je peux trouver toute les commandes:

fichier.DateCreated
fichier.DateLastModified
...

Merci!!!