---
title: "FSO"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/70258-fso"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "M.Cheraghi"
published: "2003-03-06T18:25:31.000Z"
updated: "2003-03-06T20:55:54.000Z"
replies: 9
views: 310
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/70258-fso"
---

# FSO

## #1 — M.Cheraghi, 2003-03-06T18:25Z

i mappen där jag har filen "regga_do.asp" finns deten mapp som heter "dokument" och i mapen dokument vill jag skapa en ny mapp som döps efter det andvändarnamnet man valt på föregående sida

> Kompileringsfel i Microsoft VBScript error '800a0400' 
> 
> Programsats förväntas. 
> 
> /weborg/regga_do.asp, line 39 
> 
> ("dokument/" & username)

med koden

```
Set Obj = CreateObject("Scripting.FileSystemObject")
Obj.CreateFolder_
("dokument/" & username)
```

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

## #2 — @nders, 2003-03-06T18:27Z

I felmeddelandet står  **("dokument/" & RS("username"))** , men i koden du bifogat står **("dokument/" & username)**. Och varför har du brutit raden på det sättet? Mer kod (rätt kod?) tack.

mvh

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

## #3 — Cannabis_Tomten, 2003-03-06T18:30Z

> **@nders skrev:**
>
> I felmeddelandet står  **("dokument/" & RS("username"))** , men i koden du bifogat står **("dokument/" & username)**. Och varför har du brutit raden på det sättet? Mer kod (rätt kod?) tack.
> 
> mvh

jag citerade koden från ett annat dokument, jag hade 2 notepad uppe o d blev knas, men jag har ändrat det nu, men problemet består

mer kod kommer hääär!

```
<%
username = replace(request.form("username"),"'","''")
password1 = replace(request.form("password1"),"'","''")
password2 = replace(request.form("password2"),"'","''")
f_name = replace(request.form("f_name"),"'","''")
s_name = replace(request.form("s_name"),"'","''")
email = replace(request.form("email"),"'","''")
sex = replace(request.form("sex"),"'","''")
age = replace(request.form("age"),"'","''")

If password1 <> password2 then
	response.redirect "default2.asp?nav=regga&error=1"
end if
%>
<!-- #include file="db_conn.asp" --> 
<%
Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * from members WHERE username = '"&username&"'"
RS.open strSQL, conn, 3, 3

If RS.bof and RS.eof then

'MASSA INSERT KOD

Set Obj = CreateObject("Scripting.FileSystemObject")
Obj.CreateFolder_
("dokument/" & username)

response.redirect "default2.asp?nav=startsida"

else
	response.redirect "default2.asp?nav=regga&error=2"
end if
%>
```

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

## #4 — @nders, 2003-03-06T18:32Z

Det borde nog inte vara RS("username"), utan bara username. Dessutom: Server.CreateObject. Fick inget svar heller ang. radbrytningen. 

```
Set Obj = [b]Server.[/b]CreateObject("Scripting.FileSystemObject")
Obj.CreateFolder ("dokument/" [b]& username[/b])
```

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

## #5 — Cannabis_Tomten, 2003-03-06T18:38Z

okej jag hann lösa det innan du hann skrina... men tack iaf.. rösningen blev så mycket som

```
Set Obj = CreateObject("Scripting.FileSystemObject")
Set obj = obj.CreateFolder(Server.MapPath("dokument/" & username))
```

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

## #6 — Cannabis_Tomten, 2003-03-06T19:29Z

hur skall jag göra i denna kod för att visa texten "det fanns inga bilder" om det inte finns några JPG filer i den mappen

```
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder = FSO.GetFolder(server.mappath("bilder/"))
set Files = Folder.Files 

For each Item In Files
if right(Item.Name,4) = ".jpg" then
response.write file.name & "<br>"
end if

Next 
set Folder = nothing 
set FSO = nothing 
set Files = nothing
```

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

## #7 — Cannabis_Tomten, 2003-03-06T20:33Z

shit pomfritt, har suttit i cirka 1 timma nu! sökte på FSO, å försökte leta efter en lösning, men det vart inte givande, kom till sista sidan där inlägg var postade från 2001 tror jag, :E

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

## #8 — solbulle, 2003-03-06T20:45Z

Jag vet inte om du därmed löste det.. annars kanske detta kan gå, finns säkert vackrare sätt.

```
test = "false"
For each Item In Files
	if right(Item.Name,4) = ".jpg" then
	response.write file.name & "<br>"
	test = "true"
end if

If test = "false" then
	response.write "Inga bilder (jpg) här."
End IF
```

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

## #9 — Cannabis_Tomten, 2003-03-06T20:54Z

> **solbulle skrev:**
>
> Jag vet inte om du därmed löste det.. annars kanske detta kan gå, finns säkert vackrare sätt.
>
>
> ```
> test = "false"
> For each Item In Files
> 	if right(Item.Name,4) = ".jpg" then
> 	response.write file.name & "<br>"
> 	test = "true"
> end if
> 
> If test = "false" then
> 	response.write "Inga bilder (jpg) här."
> End IF
> ```

danke.. det där fungerade alldeles utmärkt

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

## #10 — solbulle, 2003-03-06T20:55Z

Kul.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/70258-fso