With CreateObject("Scripting.FileSystemObject")
If .FolderExists(FileName) Then Content = .GetFolder(FileName).Files.Count
End With
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Tue Dec 20, 2016 18:49; edited 1 time in total
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
