投稿日 | : 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