album = year(now())&right("00"&month(now()),2)&right("00"&day(now()),2)&right("00"&hour(now()),2)&right("00"&minute(now()),2)&right("00"&second(now()),2)
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateFolder("D:\inetpub\vhosts\httpdocs\picture\album\" & album &"") '-- path album
set f=nothing
set fs=Nothing