произвольно создавать каталоги со случайными именами - vbs

Question

У меня есть папка с огромным количеством файлов, мне нужно сделать несколько папок и поместить их в эти папки (ниже 50), имена папок могут быть любой. Я думал, что имя папки будет числа (1,2,3 .. и т.д.) здесь то, что я сделал, но не работает

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) 
    fso.MoveFile file, fName 

    if i>50 then 
     fName = fName + 1 
     i = 0 
    end if 
next 
wscript.echo done 

Answer 1

Попробуйте это:

Dim i, fName, inputFldr, TmpFdr 

Set fso = CreateObject("Scripting.FileSystemObject") 
inputFldr = Replace(wscript.scriptfullname,wscript.scriptname,"myFolder") 
Set fldr = fso.getFolder(inputFldr) 
i = 0 
fName = 0 
wscript.echo "Input Folder: " & fldr.path 
For Each file In fldr.Files 
    i = i + 1 
    TmpFdr = inputFldr & "\" & fName & "\" 
    if Not fso.FolderExists(TmpFdr) Then fso.CreateFolder (TmpFdr) 
    file.move TmpFdr 

    If i > 50 Then 
     fName = fName + 1 
     i = 0 
    End If 
Next 
set fldr=nothing 
set fso=nothing