:) Det har sgu lykkedes dig, at forvirre mig total *Gg*
Hvordan gør jeg det..? Og undskyld jeg er så besværlig..
Jeg har følgende filer..
### Opret.asp ###
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
</head>
<body>
<%if request.QueryString("mode") = "" then%>
<form name="form" method="post" <%if not request.QueryString("mappenavn") = "" then%>enctype="multipart/form-data"<%end if%> action="opret.asp?mode=<%if not request.QueryString("mappenavn") = "" then%>opret<%else%>tzag<%end if%>&mappenavn=<%=request.QueryString("mappenavn")%>">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="100%"><%if request.QueryString("mappenavn") = "" then%><input type="text" name="mappenavn"><%end if%></td>
</tr>
<tr>
<td width="100%"><input type="submit" name="Submit" value="Opret"></td>
</tr>
</table>
</form>
<%
end if
if request.QueryString("mode") = "tzag" then
response.Redirect("opret.asp?mappenavn="&request.Form("mappenavn")&"")
end if
if request.QueryString("mode") = "opret" then
Set Upload = Server.CreateObject("Persits.Upload")
sti = "d:\web\domæne\www"
newfolderpath = sti & "\" & request.QueryString("mappenavn")
set filesys = Server.CreateObject("Scripting.FileSystemObject")
If not filesys.FolderExists(newfolderpath) Then
Set newfolder = filesys.CreateFolder(newfolderpath)
else
response.Write(newfolderpath)
response.write "Adressen findes desværre i forvejen<BR><br><a href='opret.asp'>Prøv venligst igen</a>"
response.End
End If
set filesys = nothing
Count = Upload.Save(newfolderpath)
Response.Redirect ("fso.asp?item=" & request.QueryString("mappenavn") & "")
end if
%>
</body>
</html>
### Fso.asp ###
<html>
<title></title>
<head>
</head>
<body>
Mappen er nu oprettet, og filerne kopieret!
<%
Set fso = CreateObject("Scripting.FileSystemObject")
'** Den fil som skal kopieres ***
Set fileObject = fso.GetFile(sti & "copy\default.asp"))
fileObject.Copy newfolderpath,false
set file = fso.GetFile(newfolderpath & "\default.asp"))
file.name = "kopieret.asp"
Set fileObject = Nothing
Set fso = Nothing
%>
</body>
</html>
