[リストへもどる]
一括表示

投稿時間:2003/07/04(Fri) 14:05
投稿者名:TAKA
URL :
タイトル:
ファイルの作成者情報を取得する方法
いつもお世話になってます!
冒頭のとおりですが、ファイルの作成者(更新者)情報を取得する方法がわかりません。
どなたか教えてください!
お願いします!

投稿時間:2003/07/04(Fri) 14:42
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: ファイルの作成者情報を取得する方法
これでいいのでしょうか?

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