tagCANDY CGI VBレスキュー(花ちゃん) - ファイルの作成者情報を取得する方法(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
ファイルの作成者情報を取得する方法(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

ファイルの作成者情報を取得する方法(VB6.0) [No.59の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
日時: 2007/07/16 10:53
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[ファイル][][]                                                      *
* キーワード:プロパティ,概要,バージョン情報,詳細設定,エクスプローラ,             *
***********************************************************************************

元質問:ファイルの作成者情報を取得する方法 - TAKA  2003/07/04-14:05 No.4623

冒頭のとおりですが、ファイルの作成者(更新者)情報を取得する方法がわかりません。


------------------------------------------------------------------------------
Re: ファイルの作成者情報を取得する方法 - 花ちゃん  2003/07/04-14:42 No.4624
------------------------------------------------------------------------------

これでいいのでしょうか?

Private Sub Command1_Click()
    Dim ObjShell    As Object
    Dim ObjFolder   As Object
    Dim ObjFile     As Object
    
    Set ObjShell = CreateObject("Shell.Application")
    Set ObjFolder = ObjShell.NameSpace("c:\")
    Set ObjFile = ObjFolder.ParseName("test.xls")
    MsgBox ObjFolder.GetDetailsOf("c:", 9) & "=" & _
                        ObjFolder.GetDetailsOf(ObjFile, 9)
    
    Set ObjFile = Nothing
    Set ObjFolder = Nothing
    Set ObjShell = Nothing
End Sub

結果:  作成者=八日市PCサービス
 
メンテ

Page: 1 |

ファイルの作成者情報を取得する方法(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 のファイル所有者情報ではなく、
 データストリームの方の作成者情報です。
メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ