<% Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateFolder("d:\New Folder1") %>