Datacheck Solutions :: ASP

Tutorials
Back

FileSystemObject - Create Folders

The Scenario:

We have a site were we want to allow registered users to upload files to a number of directories. We need a few different directories for sorting purposes.

Here is how to do it:

We initially create a directory where all users folders(directories) will be stored on our server. We will call it users. This directory needs to have read/write access, without script access, so we can write to it.
That done, here is the code to create the folders for the user upon completing our registration process.

<%
puser = Request.QueryString("fpuser") '-------- We get this from the reg page

dim fs,f,fs1,f1,fs2,f2,fs3,f3

set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateFolder((Server.MapPath)("user\" & puser))

set fs1=Server.CreateObject("Scripting.FileSystemObject")
set f1=fs1.CreateFolder(f & "\me\")

set fs2=Server.CreateObject("Scripting.FileSystemObject")
set f2=fs2.CreateFolder(f & "\icons\")

set fs3=Server.CreateObject("Scripting.FileSystemObject")
set f3=fs3.CreateFolder(f & "\mypics\")

set f=nothing
set fs=nothing
set f1=nothing
set fs1=nothing
set f2=nothing
set fs2=nothing
set f3=nothing
set fs3=nothing
%>

We have just created four new subfolders in the users directory:
User/USERNAME
User/USERNAME/ME
User/USERNAME/ICONS
User/USERNAME/MYPICS

All four Dir's have read write access..... wich is important, as the user will be eventually uploading files to these folders