' ****************************************************************************
' *
' * author   fabian wleklinski (wleklinski@eworks.de)
' *   date   2003-04-20
' *    url   http://www.eworks.de/research/2003/04/FileArranger/
' *    (c)   eWorks 2003 (http://www.eworks.de)
' *
' * Sample-script for demonstrating the usage of the windows script component
' * "FileArranger". Scanns a directory and finds similar filenames within it,
' * and moves them into seperate folders. Example given the files named
' * "file01.jpg" and "file02.jpg" will be moved into a new folder named
' * "file".
' *
' ****************************************************************************

' check if there is a command line parameter describing the folder to be
' processed
If (WScript.Arguments.Count <> 1) Then
	MsgBox "usage: arrange.vbs [foldername]", 48, "FileArrange"
	WScript.Quit 1
End If

' define the folder to be processed
sFolder = WScript.Arguments(0)

' create an instance of the FileArranger-class
Set FA = CreateObject("FileArranger.WSC")

' get the prefixes of the filenames
Set oPrefixes = FA.getFileNamePrefixes( sFolder )

' move files corresponding to their filename-prefixes
FA.moveFilesByPrefixes sFolder, oPrefixes 

' output information
MsgBox "All files in " & sFolder & " have been processed." & vbCr & _
	oPrefixes.count & " subfolders have been created.", 64, "FileArrange"