Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12371 / 13644 ツリー ←次へ | 前へ→

【10853】ドライブ内の各種ファイルの作成者の取得方法 猫おじさん 04/2/16(月) 13:08 質問
【10860】Re:ドライブ内の各種ファイルの作成者の取... りん 04/2/17(火) 0:03 発言

【10853】ドライブ内の各種ファイルの作成者の取得...
質問  猫おじさん  - 04/2/16(月) 13:08 -

引用なし
パスワード
    猫おじさんです。お世話になっています。
 共有ドライブがパンクしそうなので、整理をしたいと考えています。
 
 下記のように、ファイルの作成日等を取得していますが、
ファイルの作成者が取得できません。 
 
 Set objFld = objFs.GetFolder(strPath)
   ’strPathは、このプロシージャが呼ばれる時に、引き渡されています。
 
 Set objFs = CreateObject("Scripting.FileSystemObject")
 Set このシート = Sheets("Sheet1")

  For Each objFl In objFld.Files
    このシート .Cells(i, 6) = objFl.DateCreated
    このシート .Cells(i, 7) = objFl.DateLastAccessed
    このシート .Cells(i, 8) = objFl.DateLastModified

'    このシート .Cells(i, 9) = objFl.BuiltinDocumentProperties(3)
’   このシート .Cells(i, 9) = objFl.Author
’    ファイルの作成者が取得できません。 
    
    i = i + 1
  Next


 ネット上で下記ような記述を見つけたのですが、これですと、開いている
エクセルファイルの内容しか取得できないようです。

   With ThisWorkbook.BuiltinDocumentProperties(3)
    MsgBox .Name & "=" & .Value
   End With

 ファイル数が多いので、できればファイルを開かずにファイルの作成者を
取得したいのですが、よろしく、ご教示ください。

【10860】Re:ドライブ内の各種ファイルの作成者の...
発言  りん E-MAIL  - 04/2/17(火) 0:03 -

引用なし
パスワード
   猫おじさん さん、こんばんわ。

> ファイル数が多いので、できればファイルを開かずにファイルの作成者を
>取得したいのですが、よろしく、ご教示ください。

指定したフォルダ内にあるファイルの情報を取得する方法(V3過去ログ)
http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=one;no=8234;id=Excel
ご参考までに。

12371 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free