'* Script name  : UniqueFileExtensions.vbs
'* Created on   : 1:01 PM 5/24/2008
'* Author       : Kent Finkle
'* Purpose      : Pick Out the Unique File Extensions Used in a Collection of Files
'* Link         : /technet/scriptcenter/resources/qanda/may08/hey0509.mspx
'* Sample call  : cscript UniqueFileExtensions.vbs "c:\scripts"
'* Notes        : If no directory is passed in on the command line, the current
'*                directory is used.
'* ================================================================================

Option Explicit
 
Const adVarChar = 200
Const MaxCharacters = 255
 
Dim strExtension
Dim objRecordSet
Dim objFso
Dim objFolder
Dim objFile
Dim strFolder
 
Set objRecordSet = CreateObject("ADOR.Recordset")
 
objRecordSet.Fields.Append "Extension", adVarChar, MaxCharacters
 
objRecordSet.Open
 
Set objFso = CreateObject("Scripting.FileSystemObject")

if Wscript.Arguments.Count = 0 then
    strFolder = objFso.GetAbsolutePathName(".")
else
    strFolder = Wscript.Arguments(0)
end if

if not objFso.FolderExists(strFolder) then
    Wscript.Echo strFolder & " not found"
    Wscript.Quit
    
end if
Set objFolder = objFso.GetFolder(strFolder)
 
For Each objFile In objFolder.Files
    
    strExtension = objFso.GetExtensionName(objFile)
    
    objRecordSet.Find "Extension = '" & strExtension & "' "
    
    If (objRecordSet.BOF = True) OR (objRecordSet.EOF = True) Then
        ' Record not found
        objRecordSet.AddNew
        objRecordSet("Extension") = strExtension
        objRecordSet.Update
    Else
        ' skip
    End If

    objRecordSet.MoveFirst

Next
 
objRecordSet.Sort = "Extension"
 
objRecordSet.MoveFirst
 
Do Until objRecordSet.EOF
    Wscript.Echo objRecordSet.Fields.Item("Extension")
    objRecordSet.MoveNext
Loop