|
猫おじさんです。お世話になっています。
共有ドライブがパンクしそうなので、整理をしたいと考えています。
下記のように、ファイルの作成日等を取得していますが、
ファイルの作成者が取得できません。
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
ファイル数が多いので、できればファイルを開かずにファイルの作成者を
取得したいのですが、よろしく、ご教示ください。
|
|