If CreateObject("Scripting.FileSystemObject").FolderExists(FileName) Then
With CreateObject("Shell.Application").NameSpace(FileName).Items
.Filter 73952, "*" : If .Count Then Content = .Item(0)
End With
End If
P.S.: Точки в конце текста, наконец, будем ставить? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
