how to get the date the image was created?

[olle]

HI Everyone.
I have tried to get the filedates of images in different maps using
Access2000.
To get the filenames I do like in the vba-code below. That is no
problems.

But how do do I get the actual date of the filename?
Is it possible to get the date that some jpg-images were created?
Hope someone know something about this.

strImagepath = "c:\myimages\*. JPG"

strImageName = Dir(strImagePat h) ' Hämta det första katalognamnet.
Do While strImageName <"" ' Start loop.
' do someting, for example put the filenames in a table
strImageName = Dir ' Get next filename'
' would like to get the date that the images was created here.
Loop

/Regards BigOlle

[Stuart McCall]

You need to use the FileDateTime function:

MyDate = FileDateTime(st rImagePath)

<ol**@ylm.sewro te in message
news:11******** ************@19 g2000hsx.google groups.com...
HI Everyone.
I have tried to get the filedates of images in different maps using
Access2000.
To get the filenames I do like in the vba-code below. That is no
problems.

But how do do I get the actual date of the filename?
Is it possible to get the date that some jpg-images were created?
Hope someone know something about this.

strImagepath = "c:\myimages\*. JPG"

strImageName = Dir(strImagePat h) ' Hämta det första katalognamnet.
Do While strImageName <"" ' Start loop.
' do someting, for example put the filenames in a table
strImageName = Dir ' Get next filename'
' would like to get the date that the images was created here.
Loop

/Regards BigOlle

[olle]

hi Stuart.
thanks for you tip.
I am thought a bit confused by the code:
I plan to put strImageName in a table like
strFilename date
123.jpg 07-08-14
234.jpg 07-08-15
124.jpg 07-08-16
237.jpg 07-08-17
Could I accieve this by using the code below?

strImagepath = "c:\myimages\*. JPG"
strImageName = Dir(strImagePat h) ' get the first filename
MyDate = FileDateTime(st rImagePath)
strImageName = Dir ' Get next filename'
Do While strImageName <"" ' Start loop.
' do someting, for example put the filenames in a table
strImageName = Dir ' Get next filename'
MyDate = FileDateTime(st rImagePath)
' would like to get the date that the images was created here.
Loop


On 1 Sep, 15:15, "Stuart McCall" <smcc...@myunre albox.comwrote:

You need to use the FileDateTime function:

MyDate = FileDateTime(st rImagePath)

<[e-mail] te in message

news:11******** ************@19 g2000hsx.google groups.com...
HI Everyone.
I have tried to get the filedates of images in different maps using
Access2000.
To get the filenames I do like in the vba-code below. That is no
problems.

But how do do I get the actual date of the filename?

hi.

Is it possible to get the date that some jpg-images were created?
Hope someone know something about this.

strImagepath = "c:\myimages\*. JPG"

strImageName = Dir(strImagePat h) ' Hämta det första katalognamnet.
Do While strImageName <"" ' Start loop.
' do someting, for example put the filenames in a table
strImageName = Dir ' Get next filename'
' would like to get the date that the images was created here.
Loop

/Regards BigOlle

[Bob Quintal]

ol**@ylm.se wrote in news:1188681521 .257059.95730
@o80g2000hse.go oglegroups.com:

hi Stuart.
thanks for you tip.
I am thought a bit confused by the code:
I plan to put strImageName in a table like
strFilename date
123.jpg 07-08-14
234.jpg 07-08-15
124.jpg 07-08-16
237.jpg 07-08-17
Could I accieve this by using the code below?

strImagepath = "c:\myimages\*. JPG"
strImageName = Dir(strImagePat h) ' get the first filename
MyDate = FileDateTime(st rImagePath)
strImageName = Dir ' Get next filename'
Do While strImageName <"" ' Start loop.
' do someting, for example put the filenames in a table
strImageName = Dir ' Get next filename'
MyDate = FileDateTime(st rImagePath)
' would like to get the date that the images was created

here.

Loop

no. filedatetime needs a fully qualified file name, including the
path.

strImagepath = "c:\myimage s\"
strImageExtn = ".jpg"

' get the first filename
strImageName = Dir(strImagePat h& "*" & strImageExtn)

Do While strImageName <"" ' Start loop.
MyDate = FileDateTime(st rImagePath & strImageName)
' do someting, for example put the filenames in a table

strImageName = Dir ' Get next filename'
Loop
--
Bob Quintal

PA is y I've altered my email address.

--
Posted via a free Usenet account from http://www.teranews.com

[olle]

thanks a lot Bob
now it works perfekt.
/BigOlle

On Sep 2, 12:31 am, Bob Quintal <rquin...@sPAmp atico.cawrote:

[e-mail] wrote in news:1188681521 .257059.95730
@o80g2000hse.go oglegroups.com:

hi Stuart.
thanks for you tip.
I am thought a bit confused by the code:
I plan to put strImageName in a table like
strFilename date
123.jpg 07-08-14
234.jpg 07-08-15
124.jpg 07-08-16
237.jpg 07-08-17
Could I accieve this by using the code below?

strImagepath = "c:\myimages\*. JPG"
strImageName = Dir(strImagePat h) ' get the first filename
MyDate = FileDateTime(st rImagePath)
strImageName = Dir ' Get next filename'
Do While strImageName <"" ' Start loop.
' do someting, for example put the filenames in a table
strImageName = Dir ' Get next filename'
MyDate = FileDateTime(st rImagePath)
' would like to get the date that the images was created

here.

Loop

no. filedatetime needs a fully qualified file name, including the
path.

strImagepath = "c:\myimage s\"
strImageExtn = ".jpg"

' get the first filename
strImageName = Dir(strImagePat h& "*" & strImageExtn)

Do While strImageName <"" ' Start loop.
MyDate = FileDateTime(st rImagePath & strImageName)
' do someting, for example put the filenames in a table

strImageName = Dir ' Get next filename'
Loop

--
Bob Quintal

PA is y I've altered my email address.

--
Posted via a free Usenet account fromhttp://www.teranews.co m- Hide quoted text -

- Show quoted text -