randomly make directories with random names - vbs

randomly make directories with random names - vbs

I have a folder with massive number of files, i need to make some folders
and put them in to that folders (below 50 of each), Folder names can be
any thing. I thought folder name to be numbers( 1,2,3.. etc ) here what i
done, i stuck with folder name. how can i do this
Set fso=CreateObject("Scripting.FileSystemObject")
inputFldr =".\myFolder"
Set fldr=fso.getFolder(inputFldr)
dim i
i=0
fName = 0
for each file in fldr.files
i = i+1
If Not fso.FolderExists(".\"&fName) Then fso.CreateFolder(".\"&fName)
End If
fso.movefile file, ".\"&fName&"\"&file
if i>50 then
fName = fName + 1
i = 0
end if
next