oprette automatisk mappe med ved opload af billeder

set fso=createobject("scripting.filesystemobject")

myfolder = "c:\temp\"
maxnum = 0
for each fldr in fso.getfolder(myfolder).subfolders
    ret = fldr.name

    if left(lcase(ret ),5) = "serie" then
        num = cint(trim(right(ret,len(ret) - instr(ret," "))))
       
        if num > maxnum then
           
            maxnum = num
        end if
       
    end if
next


maxnum = maxnum + 1

fso.createfolder(myfolder & "Serie " & maxnum)


//akj