VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

ファイルの作成者情報を取得する方法(VB6.0)_1 ( No.1 ) 　[親スレッドへ]

日時： 2007/07/10 17:29
名前： 魔界の仮面弁士: ***********************************************************************************
* カテゴリー：[ファイル][][]                                                      *
* キーワード：プロパティ,概要,バージョン情報,詳細設定,エクスプローラ,             *
***********************************************************************************

GetDetailsOf の代わりに、ExtendedProperty を使う手法もあります。

-------
Dim oShell  As Object
Set oShell = CreateObject("Shell.Application")

Dim oFolder As Object
Set oFolder = oShell.NameSpace("C:\")

Dim oFile   As Object
Set oFile = oFolder.Items.Item("test.xls")

Const FMTID_SummaryInformation As String = "{F29F85E0-4FF9-1068-AB91-08002B27B3D9}"

Dim v As Variant
'v = oFile.ExtendedProperty("DocAuthor")
v = oFile.ExtendedProperty(FMTID_SummaryInformation & "4")
-------

(注)ここで取得されるのは、NTFS のファイル所有者情報ではなく、
　データストリームの方の作成者情報です。