Overføring af filer til ny mappe?
Hej Alle..Jeg har fundet understående script her på Eksperten, der opretter en mappe automatisk på en server.
Jeg står bare i den situation, at jeg automatisk gerne vil have nogle asp filer med over i mappen med det samme.. Hvordan gør jeg mon det?
På forhånd tak..
#############
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Opret</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="11%">Mappe navn: </td>
<td width="89%">
<%if request.QueryString("mappenavn") = "" then%><input type="text" name="mappenavn"><%end if%>
</td>
</tr>
<tr>
<td>Fil 1:</td>
<td><%if not request.QueryString("mappenavn") = "" then%><INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><%end if%></td>
</tr>
<tr>
<td>Fil 2:</td>
<td><%if not request.QueryString("mappenavn") = "" then%>
<INPUT TYPE="FILE" NAME="FILE2" SIZE="50">
<%end if%></td>
</tr>
<tr>
<td>Fil 3:</td>
<td><%if not request.QueryString("mappenavn") = "" then%>
<INPUT TYPE="FILE" NAME="FILE3" SIZE="50">
<%end if%></td>
</tr>
<tr>
<td>Fil 4:</td>
<td><%if not request.QueryString("mappenavn") = "" then%>
<INPUT TYPE="FILE" NAME="FILE4" SIZE="50">
<%end if%></td>
</tr>
<tr>
<td>Fil 5:</td>
<td><%if not request.QueryString("mappenavn") = "" then%>
<INPUT TYPE="FILE" NAME="FILE5" SIZE="50">
<%end if%></td>
</tr>
<tr>
<td> </td>
<td><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 "Mappen findes i forvejen<BR><a href='opret.asp'>Prøv igen</a>"
response.End
End If
set filesys = nothing
Count = Upload.Save(newfolderpath)
Response.Write Count & " fil(er) uploaded til "& newfolderpath &"<BR><a href='opret.asp?mode=opretflere&mappenavn="&request.QueryString("mappenavn")&"'>Tilføj flere</a>"
end if
if request.QueryString("mode") = "opretflere" then
%>
<form name="form" method="post" enctype="multipart/form-data" action="opret.asp?mode=opretflerenu&mappenavn=<%=request.QueryString("mappenavn")%>">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="11%">Fil 1:</td>
<td width="89%"> <INPUT TYPE="FILE" NAME="FILE1" SIZE="50">
</td>
</tr>
<tr>
<td>Fil 2:</td>
<td> <INPUT TYPE="FILE" NAME="FILE2" SIZE="50">
</td>
</tr>
<tr>
<td>Fil 3:</td>
<td> <INPUT TYPE="FILE" NAME="FILE3" SIZE="50">
</td>
</tr>
<tr>
<td>Fil 4:</td>
<td> <INPUT TYPE="FILE" NAME="FILE4" SIZE="50">
</td>
</tr>
<tr>
<td>Fil 5:</td>
<td> <INPUT TYPE="FILE" NAME="FILE5" SIZE="50">
</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="Opret"></td>
</tr>
</table>
</form>
<%end if
if request.QueryString("mode") = "opretflerenu" then
Set Upload = Server.CreateObject("Persits.Upload")
sti = "d:\web\domæne\www\"
newfolderpath = sti & "\" & request.QueryString("mappenavn")
Count = Upload.Save(newfolderpath)
Response.Write Count & " fil(er) uploaded til "& newfolderpath &"<BR><a href='opret.asp?mode=opretflere&mappenavn="&request.QueryString("mappenavn")&"'>Tilføj flere</a>"
end if
%>
</body>
</html>
