>Hi all,
>
>Can anybody tell me how to do ADIR() and ASORT() using WSH ?
>I am new to WSH... just wondering if this can be done without writing the sorting routine in scripting.
>
>Thanks for any input.
>
Kam,

Doing an ADIR() is simple:

oFSO = CREATEOBJECT('Scripting.FileSystemObject')
* Just folders
oFolder = oFSO.GetFolder("C:\")
DIMENSION a_folders[1]
lni = 0
FOR EACH oSubFolder IN oFolder.SubFolders
  lni = lni + 1
  DIMENSION a_folders[lni] 
  a_folders[lni] = oSubFolder.Name
NEXT
* Just files
DIMENSION a_files[1]
lni = 0
FOR EACH oFile IN oFolder.Files
  lni = lni + 1
  DIMENSION a_files[lni] 
  a_files[lni] = oFile.Name
NEXT

This will place the name of the sub-folders and files in the root of the root into arrays. You can then ASORT() them. There is no method in the WSH to return the information in order. I imagine that the Dictionary object might be useful in doing this, but don't see any reason in this case why the above solution won't do instead.