Estoy intentando imprimir documentos en un directorio, ordenados por nombre de archivo ascendente. Tengo el siguiente script para imprimir los documentos, que funciona, pero está en un orden aleatorio. ¿Hay alguna forma de ordenar la colección de "archivos" basada en el nombre?

'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