Listar arquivos COM ORDENAÇÃO POR NOME

Esse é o sistema que eu uso:

Set objFileSys = Server.CreateObject("scripting.FileSystemObject")Set Thefolder = objFileSys.GetFolder(CAMINHOFOTOS)Set Thefiles = TheFolder.files

<% For Each Thefiles in TheFiles %><% = Thefiles.name %><br><% next %>

Mas é listado por ordem de inclusão. Alguém sabe se é possível definir a ordem?