Image JPG

salut, j'aimerais savoir comment l'on fait pour savoir la date de creation d'un fichier JPG et la résolution! ca fais plus de 4 mois que je cherche sans resultats! svp un peut d'aide! merci!

Pour la date de création, tu peux la récupérer avec l'objet suivant

           Dim  fichier as fileinfo = New FileInfo("c:\toto.jpg")
            MsgBox(fichier.CreationTime.Date)

Pour la résolution je c pas !!!!

Violent Ken

x=loadpicture("c:\test.jpg").width
y=loadpicture("c:\test.jpg").height

Note: les résultats ne sont pas donnés en pixels

bonjour

j'espere que cet exemple pourra t'aider

Sub informationsFichier()
'necessite d'activer reference Microsoft Shell Controls and Automation
Dim objShell As Shell
Dim objFolder As Folder
Dim strFileName As FolderItem
Dim Chemin As String, Resultat As String
Dim i As Byte

'adapter le chemin et le nom du fichier
Chemin = "C:\Documents and Settings\michel\dossier"

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(Chemin)
Set strFileName = objFolder.Items.Item("fourmiz.JPG")

For i = 0 To 34
If objFolder.GetDetailsOf(strFileName, i) <> "" Then _
Resultat = Resultat & objFolder.GetDetailsOf(strFileName, i) & vbLf
Next
MsgBox Resultat

End Sub


bonne soiree
michel