JavaScript - No funciona la recursividad en Jscript

C:�

│   callpc.db

│

├───a

│       aa.txt

│

└───b

        bb.txt

function ListarArchivos(nomCarpeta)

 {

 fso = WScript.CreateObject("Scripting.FileSystemObject");

 Carpeta = fso.GetFolder(nomCarpeta);

 Ficheros = new Enumerator(Carpeta.Files);

 // Obtiene la coleccion de archivos de la carpeta y la recorre

 for (; !Ficheros.atEnd(); Ficheros.moveNext())

  WScript.Echo(Ficheros.item());

 Carpetas = new Enumerator(Carpeta.SubFolders);

 // Obtiene la coleccion de carpetas de la carpeta y la recorre

 for (; !Carpetas.atEnd(); Carpetas.moveNext())

  ListarArchivos(Carpetas.item());

 Carpeta = null;

 fso = null;

 }

var MY_COMPUTER = "H11" ;

var WINDOW_HANDLE = 0;

var OPTIONS = 0;

var MSG_INICIO = "Seleccione una carpeta: ";

objShell = WScript.CreateObject("Shell.Application");

objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, MSG_INICIO, OPTIONS);

objFolderItem = objFolder.Self;

objPath = objFolderItem.Path;

GetFiles(objFolderItem.Path);

function GetFiles(namFolder)

 {

 fso = WScript.CreateObject("Scripting.FileSystemObject");

 Folder = fso.GetFolder(namFolder);

 var ListFolders=new Array();

 i=0;

 j=0;

 ListFolders[j] = Folder;

 j++; //Cuando entran datos al array "ListFolders", se incrementa "j"

 while(ListFolders.length != i)

  {

  currentFolder = fso.GetFolder(ListFolders[i])

  i++; //Cuando se leen datos del array "ListFolders", se incrementa "i"

  subFolders =  new Enumerator(currentFolder.SubFolders);

  Files = new Enumerator(currentFolder.Files);

  for (; !Files.atEnd(); Files.moveNext())

   WScript.Echo(Files.item());

  for (; !subFolders.atEnd(); subFolders.moveNext())

   {

   ListFolders[j] = subFolders.item();

   j++; //Cuando entran datos al array "ListFolders", se incrementa "j"

   }

  }

 }