VBScriptで指定フォルダ内のファイルを名前順に並び替える

' 指定フォルダのパス
strFolderPath = "C:\Users\username\Documents"

' 指定フォルダ内のファイルを取得
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolderPath)
Set objFiles = objFolder.Files

' ファイルを名前順に並び替える
Set objShell = CreateObject("Shell.Application")
Set objFolderItem = objShell.NameSpace(objFolder.Path)
objFolderItem.SortColumn = "Name"
objFolderItem.SortAscending = True

' 並び替えたファイルの一覧を表示
For Each objFile In objFiles
WScript.Echo objFile.Name
Next