Create a new folder, copy file from variable - input field

[ecorf]

Hi, I am trying to create a new folder from an input field. This is a work intranet, not public, website. On one page, the Administrator will put in a year for the new folder. Submit the form and it creates a new folder and copies a blank formatted database file to that folder.

I can get it to work -without the input field. In this code, I just put in the year 1965...so the request form portion doesn't matter, but I want it too.

<%
dim folderyear
folderyear=request.form("createyear") 

Const strFolder = "C:\inetpub\wwwroot\clips\1965\", strFile = "C:\inetpub\wwwroot\clips\blankdb\archives.mdb"
Const Overwrite = True
Dim oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")

If Not oFSO.FolderExists(strFolder) Then
  oFSO.CreateFolder strFolder
End If

oFSO.CopyFile strFile, strFolder, Overwrite

%>

I have tried various things including these, but none are working:

Const strFolder = "C:\inetpub\wwwroot\clips\ & folderyear & \", strFile = "C:\inetpub\wwwroot\clips\blankdb\archives.mdb"
Const strFolder = "('C:\inetpub\wwwroot\clips\' & folderyear & '\')", strFile = "C:\inetpub\wwwroot\clips\blankdb\archives.mdb"
Const strFolder = "("'C:\inetpub\wwwroot\clips\'" & folderyear & "'\'")", strFile = "C:\inetpub\wwwroot\clips\blankdb\archives.mdb"
Const strFolder = ("'C:\inetpub\wwwroot\clips\'" & folderyear & "'\'"), strFile = "C:\inetpub\wwwroot\clips\blankdb\archives.mdb"
Const strFolder = ("'C:\inetpub\wwwroot\clips\' & folderyear & '\'"), strFile = "C:\inetpub\wwwroot\clips\blankdb\archives.mdb"
Const strFolder = ("C:\inetpub\wwwroot\clips\" & folderyear & "\"), strFile = "C:\inetpub\wwwroot\clips\blankdb\archives.mdb"

What stupid thing am I doing wrong? Thanks for your help.

[gk53]

try that
you creating strFolder with folderyear and in this case it could not be a constant....
and fix some error (missing ")

<%
strFolder = "C:\inetpub\wwwroot\clips\"  & folderyear & " \" 
strFile = "C:\inetpub\wwwroot\clips\blankdb\archives.mdb"

Set oFSO = CreateObject("Scripting.FileSystemObject")

If Not oFSO.FolderExists(strFolder) Then
  oFSO.CreateFolder strFolder
End If

oFSO.CopyFile strFile, strFolder, Overwrite
%>

[ecorf]

YES...that did it. THANK YOU GK! I really appreciate that. - meb

This is the final code that worked:

<%
dim folderyear
folderyear=request.form("createyear") 
%> 
<%
strFolder = "C:\inetpub\wwwroot\BAD-newsclips\" & folderyear & "\" 
strFile = "C:\inetpub\wwwroot\BAD-newsclips\blankdb\archives.mdb"

Set oFSO = CreateObject("Scripting.FileSystemObject")

If Not oFSO.FolderExists(strFolder) Then
  oFSO.CreateFolder strFolder
End If

oFSO.CopyFile strFile, strFolder, Overwrite
%>


<%
response.write("A new folder for ")
response.write(request.form("createyear")) 
%>

[ecorf]

sorry...ignore that BAD-newclips part of the code....(during my testing...I created a couple of folders with spaces at the end and I can't get rid of the folders...so I renamed the folder to BAD....couldn't find a way to edit my response so here is the final code that worked.

<%
dim folderyear
folderyear=request.form("createyear") 
%> 
<%
strFolder = "C:\inetpub\wwwroot\clips\" & folderyear & "\" 
strFile = "C:\inetpub\wwwroot\clips\blankdb\archives.mdb"

Set oFSO = CreateObject("Scripting.FileSystemObject")

If Not oFSO.FolderExists(strFolder) Then
  oFSO.CreateFolder strFolder
End If

oFSO.CopyFile strFile, strFolder, Overwrite
%>


<%

response.write("A new folder for ")
response.write(request.form("createyear")) 

%>