FSO

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)

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

@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
%>

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])

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))

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

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

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

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

Kul.