Using vbscript to print documents in ascending order

Use a Scripting.Dictionary. It is sorted per se, you just need a lexical sortable key. E.g.

Option Explicit

Dim NumberOfCopies
Dim Documents

NumberOfCopies = GetNumberOfCopies()
If numberOfCopies > 0 Then
  Set Documents = GetDocuments()
  PrintDocuments Documents, NumberOfCopies
End If

Function GetDocuments()

  Dim currentFile
  Dim currentPath
  Dim files
  Dim index
  Dim result
  Dim shApp
  Dim shFolder

  Set shApp = CreateObject("Shell.Application")
  currentPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
  Set shFolder = shApp.NameSpace(currentPath)
  Set files = shFolder.Items()
  Set result = CreateObject("Scripting.Dictionary")
  For Each currentFile in files
    index = InStr(currentFile.Name, "-")
    If index > 0 Then
      index = Rtrim(Left(currentFile.Name, index - 1))
      result.Add LeftPad(index, 4, "0"), currentFile
    End If
  Next

  Set GetDocuments = result

End Function

Function GetNumberOfCopies()

  On Error Resume Next

  Dim inputText
  Dim result

  inputText = InputBox("Input the number of copies you would like")
  result = 0
  result = CLng(inputText)
  GetNumberOfCopies = result

End Function

Function LeftPad(stringToPad, length, characterToPad)

  Dim charactersNeeded

  charactersNeeded = 0
  If Length > Len(StringToPad) Then
    charactersNeeded = length - Len(stringToPad)
  End If

  LeftPad = String(charactersNeeded, characterToPad) & stringToPad

End Function

Sub PrintDocument(document, ByVal numberOfCopies)

  WScript.StdOut.Write document.Name
  Do While numberOfCopies > 0
    WScript.StdOut.Write "."
    document.InvokeVerbEx ("Print")
    WScript.Sleep 500
    numberOfCopies = numberOfCopies - 1
  Loop

  WScript.Echo ""

End Sub

Sub PrintDocuments(documents, numberOfCopies)

  Dim currentFile
  Dim documentKey

  For Each documentKey in documents.Keys
    PrintDocument documents.Item(documentKey), numberOfCopies
  Next

End Sub

Select allOpen in new window

That worked like a charm.  One last thing ... is there a way to have it print the selection of documents I am working with in order each time?  The current version of the above scrpt prints each document X number of times so I have to manually collate them in a packet.  If it could run through and print each document once and then loop back through X number of times (numberOfcopies), that would be awesome.  Each of the documents makes up a packet of information.  Thanks for the help since this will be a lifesaver.  

Thank you very much.  I am learning, thanks to you.  :)