1

膨大な数のファイルを含むフォルダーがあります。いくつかのフォルダーを作成し、それらをそのフォルダーに入れる必要があります (それぞれ 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
4

1 に答える 1

3

これを試して：

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
于 2013-09-30T02:38:41.117 に答える