thanks for the help so far guys, much appreciated!
So, the script looks like this:-
=======================================
Dim oFS, oFolder
Dim objexcel, r, lnameArray, lname, nameLength
set oFS = WScript.CreateObject("Scripting.FileSystemObject")
set oFolder =...