---
title: "Skapa mapp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11782-skapa-mapp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "His Divine Shadow"
published: "2001-09-25T10:27:00.000Z"
updated: "2001-09-26T08:32:00.000Z"
replies: 11
views: 213
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/11782-skapa-mapp"
---

# Skapa mapp

## #1 — His Divine Shadow, 2001-09-25T10:27Z

Jag undrar hur jag kan ändra det här scriptet så det skapar en mapp med samma namn som username "variblen"
Sen ska ju upload pathen ändras till det också så att filen laddas upp i en mapp med användarens namn. 

```
'<%
'  Variables
'  *********
   Dim mySmartUpload
   Dim intCount
        
'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
   mySmartUpload.Upload

'  Save the files with their original names in a virtual path of the web server
'  ****************************************************************************
   intCount = mySmartUpload.Save("/Katalog/Images")
   ' sample with a physical path 
   ' intCount = mySmartUpload.Save("c:\temp\")
%>

<%
'Declare all local variables

dim conn
dim rs
dim strID
dim strconn

'set a local variable to my DSN-less connection String
strconn = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\WebData\katalog.mdb;"

'Create the Connection object 
set conn = server.createobject("adodb.connection")
conn.open strconn

'Create the recordset object
set rs = server.createobject("adodb.recordset")
'This statement opens the table so we can add a record notice the addnew 
'The 2, 2 is how the table is opened there are many ways it can be opened
rs.open "Kat", conn, 2, 2

'Use the addnew method of the recordset object to add a record
rs.addnew
'Set the table column = to my input text box from my form
rs("Namn") = mySmartUpload.Form("Namn") 
rs("Naradress") = mySmartUpload.Form("Naradress")
rs("Postnr") = mySmartUpload.Form("Postnr") 
rs("Ort") = mySmartUpload.Form("Ort")
rs("Tel") = mySmartUpload.Form("Tel") 
rs("Fax") = mySmartUpload.Form("Fax")
rs("Epost") = mySmartUpload.Form("Epost")
rs("www") = mySmartUpload.Form("www") 
rs("Amnesomrade") = mySmartUpload.Form("Amnesomrade")
rs("Ovrigt_swe") = mySmartUpload.Form("Ovrigt_swe") 
rs("Ovrigt_fin") = mySmartUpload.Form("Ovrigt_fin")
rs("Username") = mySmartUpload.Form("Username")
rs("Password") = mySmartUpload.Form("Password")
rs("Filename") = mySmartUpload.Form("Filename")
rs.update
'I do a movelast here to get the ID that is automatically generated 
'I also set the value to a local variable so I can write out to the database
rs.movelast
strID = rs("ID")

%>
```

Permalänk: https://www.webforum.nu/p/11782

## #2 — emission, 2001-09-25T10:42Z

Du får använda FileSystemObjects metod CreateFolder

Permalänk: https://www.webforum.nu/p/287385

## #3 — His Divine Shadow, 2001-09-25T11:36Z

ah, lite mera info om hur jag använder det?

Permalänk: https://www.webforum.nu/p/287386

## #4 — erka, 2001-09-25T12:14Z

dim mappnamn
mappnamn = request.form("mappnamn")
Set Skapa = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Skapa.CreateFolder(Server.MapPath(mappnamn))

Permalänk: https://www.webforum.nu/p/287387

## #5 — His Divine Shadow, 2001-09-25T12:44Z

Funkar inte riktigt får:

Microsoft VBScript runtime error '800a0006' 

Overflow 

/katalog/swe/adduser.asp, line 11 

```
<%

'  Variables
'  *********
   Dim mySmartUpload
   Dim intCount
        
dim skapamapp
username  = request.form("username")
Set Skapa = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp  = Skapa.CreateFolder(Server.MapPath(katalog/images/skapamapp))

'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
   mySmartUpload.Upload

'  Save the files with their original names in a virtual path of the web server
'  ****************************************************************************
   intCount = mySmartUpload.Save("/Katalog/Images/skapamapp")
   ' sample with a physical path 
   ' intCount = mySmartUpload.Save("c:\temp\")
%>
```

Permalänk: https://www.webforum.nu/p/287388

## #6 — erka, 2001-09-25T13:01Z

Du har ju inte något i variabeln skapamapp 

but ut username mot Skapamapp = request.form("username")

Permalänk: https://www.webforum.nu/p/287389

## #7 — His Divine Shadow, 2001-09-26T05:57Z

OK har det såhär nu men fortfarande samma overflow fel.

```
dim skapamapp
skapamapp  = request.form("username")
Set Skapa = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp  = Skapa.CreateFolder(Server.MapPath(katalog/images/skapamapp))
```

Permalänk: https://www.webforum.nu/p/287390

## #8 — emission, 2001-09-26T06:05Z

"katalog/images/" & skapamapp

Permalänk: https://www.webforum.nu/p/287391

## #9 — His Divine Shadow, 2001-09-26T06:32Z

Path not found

Set Mapp  = Skapa.CreateFolder(Server.MapPath("Katalog/images/" & skapamapp))

Mapparna katalog/images ligger direkt under webrooten.

Permalänk: https://www.webforum.nu/p/287392

## #10 — PatrikB, 2001-09-26T07:18Z

```
Set Mapp = Skapa.CreateFolder(Server.MapPath("[b]/[/b]Katalog/images/" & skapamapp))
```

cya,
PatrikB

Permalänk: https://www.webforum.nu/p/287393

## #11 — His Divine Shadow, 2001-09-26T07:27Z

nu kommer det:
Microsoft VBScript runtime error '800a003a' 

File already exists 

Samma kodbit.

Permalänk: https://www.webforum.nu/p/287394

## #12 — His Divine Shadow, 2001-09-26T08:32Z

OK fixat det själv.

Permalänk: https://www.webforum.nu/p/287395

---

Tråden på webben: https://www.webforum.nu/amne/asp/11782-skapa-mapp