>Hi,
>
>I found code to extract the metadata(Artist, resolution, bitrate, duration) from files but it work for a whole folder and I want to do it for only one file. I have a folder,subfolder with a lot of mp3,mov,wmv and this will take more time. How?
>
>Thank's in advance for you answers.
>
>

>loShell = CreateObject("Shell.Application")
>loFolder = loShell.Namespace("F:\trailers")
>
>For Each lcFileName in loFolder.Items
>   FOR t= 0 TO 34
>       ? "File name "+STR(t,2)+": "+ loFolder.GetDetailsOf(lcFileName, t)
>   ENDFOR
>Next
>
>RETURN
>

loShell = Createobject("Shell.Application")
loFolder = loShell.Namespace("c:\windows\media")
lcSingleFile = "Windows XP Startup.wav"
loItem = loFolder.ParseName(m.lcSingleFile)
If !Isnull(loItem)
  For ix= 0 To 34
    ? "File name "+Str(m.ix,2)+": "+ ;
      loFolder.GetDetailsOf(loItem, m.ix)
  Endfor
Else
  ? "File doesn't exist"
Endif

Cetin