投稿時間: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
|