Распечатывать файлы в каталоге, отсортированном по FileName
Я пытаюсь распечатать документы в каталоге, упорядоченном по имени файла по возрастанию. У меня есть сценарий ниже, чтобы распечатать документы, который работает, но это в случайном порядке. Есть ли способ отсортировать коллекцию "файлов" по имени?
'Set the TargetFolder
TargetFolder = "C:\Temp\Hewitt\TestPrintFolder"
Set shellApplication = CreateObject("Shell.Application")
Set folder = shellApplication.Namespace(TargetFolder)
Set files = folder.Items
For Each file In files
file.InvokeVerbEx ("Print")
Next