title: sorting in visual basic?
body: <p>I've got lots of folders each with a number of HTML files in them some as many as 70 files in a folder and asked a friend to help me make a bulk edit of these files to change their background and font colors as well as add a link at the bottom to go to the next file in the folder and this is what he sent me .. it was a .vbs file</p>
  
  <pre><code>'Here are the settings
  'Be warned this is old fashioned preHTML5 stuff no css. But well I guess it could be implemented as well
  'I think most of the replacements are pretty straight forward
  'Run this script in a folder with all the files for one story
  'Running it more then once can have unforseen consequences :)
  background="black"
  foreground="white"
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objSuperFolder = objFSO.GetFolder(".")
  Call ShowFiles (objSuperFolder)
  
  WScript.Quit 0
  
  
  Sub ShowFiles(fFolder)
  Set objFolder = objFSO.GetFolder(fFolder.Path)
  Set colFiles = objFolder.Files
  
  Dim a(50000)
  Dim b(50000)
  i = 1
  For Each objFile In colFiles
  If UCase(objFSO.GetExtensionName(objFile.name)) = "HTML" Then
      a(i) = objFile.Path
      b(i)=objFile.Name
      i = i + 1
  End If
  Next
  
  j=i
  
  For z = 1 To j-1
          Set objFile2 = objFSO.OpenTextFile(a(z), 1)
          strText = objFile2.ReadAll
          strText = Replace(strText, "&lt;body&gt;", "&lt;body bgcolor=""" +background+"""&gt;")
          strText = Replace(strText, "&lt;html&gt;", "&lt;html&gt;&lt;font color=""" +foreground+"""&gt;")
          strText = Replace(strText, "&lt;/html&gt;", "&lt;/font&gt;&lt;/html&gt;")
          'Add the link to next chapter
          If z &lt; j-1 Then
              strText = Replace(strText,"&lt;/body&gt;","&lt;a href="""+b(z+1)+"""&gt;Link to next chapter!&lt;/a&gt;&lt;/body&gt;")
          End If
          objFile2.Close
          Set objFile2 = objFSO.OpenTextFile(a(z), 2)
          objFile2.Write strText
          objFile2.Close
  Next
  End Sub
  </code></pre>
  
  <p>and for the most part it works great except that it linked 1 to 10 then 11, 12, ... 19, 2, 20, 21 and so on i'm trying to figure out how to fix it so the links go from 1 to 2, 3, ... 9, 10, 11... 
  the HTML file names are all the same in a given folder except the number at the end
  Name0.html
  Name1.html
  Name2.html
  ...
  Name9.html
  Name10.html
  Name11.html
  etc...
  BTW the html files are generated by a program i downloaded so i can recreate them easy enough if a mistake is made oh and i also wanted to add changing the font size as well but if it's to much trouble i can easily continue to use the zoom feature to work around that </p>
  
  <p>Added in respond to the first answer:</p>
  
  <p>no i can not control the output of the original programs numbering though if someone had a quick VBS script to change the files to a 3 digit format for the numbers that'd be a lovely workaround solution</p>
  
  <p><a href="http://helloacm.com/bubble-sort-in-vbscript/" rel="nofollow noreferrer">http://helloacm.com/bubble-sort-in-vbscript/</a> 
  This looks like it might be a step in the right direction maybe?
  <a href="https://stackoverflow.com/questions/4165662/sorting-arrays-numerically-and-alphabeticallylike-windows-explorer-without-usi">Sorting arrays numerically and alphabetically(like Windows Explorer) without using StrCmpLogicalW or shlwapi.dll - ASP.NET VB</a>
  or this?</p>