ASP
Here you can find some FREE usefull Classic ASP / VBScript code snippets, class modules, etc.
Procedure CreateFolder (String)
Create a new folder on server.
Example
<% CreateFolder "C:\inetpub\www\myfolder" CreateFolder "myfolder/subfolder" %> Source Code <%
Sub CreateFolder(foldername) dim fso, f, folderpath if mid(foldername,2,1)<>":" and left(foldername,2)<>"\\" then folderpath = Server.MapPath(foldername) else folderpath = foldername if right(folderpath,1) = "\" then folderpath=left(p,len(p)-1) Set fso = CreateObject("Scripting.FileSystemObject") if not fso.FolderExists(folderpath) then fso.CreateFolder folderpath set fso = nothing End Sub %> |