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

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

ファイルの作成者情報を取得する方法(VB6.0) ( No.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サービス