File already exists Fejl
HejJeg har dette
http://www.aeronet.dk/upload/folder_file.asp
som i kan se så kommer den med en:
Microsoft VBScript runtime error '800a003a'
File already exists
/upload/folder_file.asp, line 42
line 42 = Set a = objFSO2.CreateFolder(NewFolder)
jeg kan sagens oprette en mappe uden problemmer men den kommer hele tiden med fejlen.
Kan nogle hjælpe min kode er:
<%@ Language=VBScript %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Dim SiteName
SiteName = LCase(Request.Servervariables("SCRIPT_NAME"))
Response.Buffer = True
Session.LCID = 1030
%>
<head>
<title>Upload-Script</title>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1" />
<meta http-equiv="content-language" content="dan" />
<link rel="stylesheet" type="text/css" href="include/style.css" title="style" />
<style type="text/css">td img {display: block;}</style>
</head>
<body bgcolor="#ffffff">
<form action="<%=SiteName%>" method="post">
<input type="text" name="Foldername">
<button type="submit">Create</button>
</form>
<%
Dim ServerMappath
ServerMappath = "./images/upload"
'Folder_List
Dim ShowFolder, objFSO, objFolder, Folders, Fold
ShowFolder = Server.Mappath(""&ServerMappath&"") &"/"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(ShowFolder)
Set Folders = objFolder.subfolders
For Each Fold In Folders
Response.Write(Fold.name & "<br>")
Next
'Creat_Folder
Dim FolderName, MainFolder, objFSO2, a
FolderName = request("Foldername")
MainFolder = Server.Mappath(""&ServerMappath&"") &"/"
Set objFSO2 = CreateObject("Scripting.FileSystemObject")
NewFolder = MainFolder + FolderName
Set a = objFSO2.CreateFolder(NewFolder)
Set objFSO2 = Nothing
%>
