Get Extended property for specific file

[Middlemarch]

The property I want is bitrate which I think is 28 but if the following would work I can confirm that

Dim oShell As Object
Dim oDir As Object
Dim objFile As Object
Set oShell = CreateObject("Shell.Application")
Set oDir = oShell.Namespace("D:\01.flac")


For Each objFile In oDir.Items
   Debug.Print oDir.GetDetailsOf(objFile, 20)
Next

I'm not familiar with this code and get the following error
-2147467259 Automation error
Unspecified error



Can anyone correct what's wrong? Thanks.

[June7]

Does this help https://stackoverflow.com/questions/...ile-attributes

[Welshgasman]

Is "D:\01.flac" a file or a folder?

[Middlemarch]

Yes it did June, thanks, and this is just what I wanted

Function trythis(f, ByRef x) As Integer
    With CreateObject("Shell.Application").Namespace(GetPath(f))
        trythis = Val(Mid(.GetDetailsOf(.Items.Item(StripPath(f)), 28), 2))
        x = .GetDetailsOf(.Items.Item(StripPath(f)), 27)
    End With
End Function

28 is Bitrate but also I also want Filesize and that's not 27 (which is Duration)
Size is 1 but that returns "5.07 MB" which seems wrong as r-click properties shows 10.8 MB (11,364,469 bytes)
and it's the full 11364469 I'm after (with or without the comas).
Is it possible ?
(Strip and GetPath return the path and name for f which is a .flac file). x is a Variant.

[Middlemarch]

@Welshgasman it was a file.

[Welshgasman]

@Welshgasman it was a file.

Yet oDir is meant to be a folder?

[Middlemarch]

I see, yes. oops.
I have a new routine now in msg4 which is working.. if I find the index number for LOF.

[Welshgasman]

https://isladogs.co.uk/extended-file...ies/index.html

[Micron]

Size is 1 but that returns "5.07 MB" which seems wrong as r-click properties shows 10.8 MB (11,364,469 bytes)

What are you using to see 5.07 - tag editing software? If so, could 5 be the compressed size and Windows right click is the uncompressed size?

[Middlemarch]

I get the 5.07 from the code in Msg 5 where f is a flac file.
I'm guessing file size in bytes isn't returned as an extended property.
This works - Open File For Binary As #ffebug.print LOF(ff)
but I wanted to see if another method may be quicker.

[isladogs]

File size is returned as extended property 1. Bitrate is indeed property 28.
There are a total of 321 extended properties though no single file has all of these.

See my Extended File Properties app referenced in post #8 to get all extended file properties for any file or groups of similar files.

[Middlemarch]

Hi Colin, yes I did read through all of those and found 1 was Size.
But it returns it as e.g. "14.4 MB"
What I wanted was size in bytes as per r-click-properties. 14.4 MB (15,122,809 bytes)
The bit in brackets. Am I right thinking this can't be done ?

[isladogs]

There is only one size property
Just convert the quoted value to bytes where i kilobyte = 1024 bytes, 1 MB = 1024 kilobytes ...etc