на форуме есть тема "Список файлов в папке" http://www.planetaexcel.ru/techniques/3/45/#7452 там есть макрос, добавляющий в текущую книгу новый пустой лист и выводящий на него список всех файлов с их параметрами из заданной пользователем папки Прошу добавить еще такие параметры: автор, кем сохранен, владелец, компьютер, ну и другие параметры которые не упомянул.
Мюсье, Ваши запросы несколько больше чем возможности используемого там объекта Scripting.FileSystemObject, а некоторые параметры не являются атрибутами файла ( компьютер). Следовательно это не добавить, а почти полностью переписать, с учетом этого
Цитата
sergey2303 написал: и другие параметры которые не упомянул.
можно использовать Shell.Application посмотрите тут пример на VBS. Получает следующие данные Name: 01 Beethoven Symphony #5.mp3 Size: 6,47 MB Item type: MP3 File Date modified: 27.08.2014 22:03 Date created: 10.02.2017 16:13 Date accessed: 10.02.2017 16:13 Attributes: AI Offline status: Availability: Available offline Owner: .D*****N\b*******k Kind: Music Date taken: Contributing artists:
Function GetFileOwner(fileDir As String, fileName As String) As String
Dim securityUtility As Object
Dim securityDescriptor As Object
Set securityUtility = CreateObject("ADsSecurityUtility")
Set securityDescriptor = securityUtility.GetSecurityDescriptor(fileDir & fileName, 1, 1)
GetFileOwner = securityDescriptor.owner
End Function
Function GetFileOwner(SourceFolder As String, FileItem As String) As String
Dim securityUtility As Object
Dim securityDescriptor As Object
Set securityUtility = CreateObject("ADsSecurityUtility")
Set securityDescriptor = securityUtility.GetSecurityDescriptor(SourceFolder & "\" & FileItem, 1, 1)
GetFileOwner = securityDescriptor.Owner
End Function
получается владелец: организация\владелец, как убрать все от начала до \ включительно, что би получилось владелец получилось