Help for this page
[id(0x00000003), helpstring("method GetFileName")] void GetFileName(BSTR* pbstrFileName);
my $filename = Variant(VT_BSTR|VT_BYREF, 0);