<% 'IDD = RsID(0) 'IDL = IDD + 1 pt = "D:\inetpub\virtual\futurehomes\wwwroot\Project_Images\uae\dubai" 'D:\inetpub\virtual\futurehomes\wwwroot\Project_Images" 'response.write pt '--------test---------- dim fs,f,k set fs=Server.CreateObject("Scripting.FileSystemObject") if fs.FolderExists(pt)=true then k = 1 response.write("Folder already exists") else set f=fs.CreateFolder(pt) response.write("Folder created") end if set fs=nothing %> New Page 1