A partir d'une procédure qui récupère les données d'une image

Code Visual Basic :
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
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub FileMetadata()
 
    Dim fileFolder As String
    Dim fileNm As String
    Dim i As Integer
    Dim objShell As Shell32.Shell
    Dim objFolder As Shell32.Folder
    Dim objFolderItem As Shell32.FolderItem
    Dim cTxt As String
    'chemin et fichier à adapter
    fileFolder = "C:\Images\"
 
    fileNm = "Test.jpg"
 
    Set objShell = New Shell
    Set objFolder = objShell.Namespace(fileFolder)
    Set objFolderItem = objFolder.ParseName(fileNm)
 
    For i = 0 To 40
        cTxt = cTxt & vbCrLf & objFolder.GetDetailsOf(objFolder, i) & " : " & objFolder.GetDetailsOf(objFolderItem, i)
    Next
 
    Set objFolderItem = Nothing
    Set objFolder = Nothing
    Set objShell = Nothing
 
    MsgBox cTxt
End Sub
j'ai voulu prendre uniquement la taille de l'image.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
cTxt =  objFolder.GetDetailsOf(objFolderItem, 32)
mais j'obtiens des points d'exclamation en début et en fin de chaîne que je n'arrive pas à enlever.
http://cjoint.com/?CFBqv04QzqH

Merci d'avance