Cartella

[GanT]

Salve vorrei aggiungere una cartella al mio server ma ricevo un errore e non riesco a capire come risolverlo. Potreste aiutarmi?

Script:
-----------------------------------------------
<%
dim cartella
cartella=request.form("cartella")
dim filetest, nuovadir
set filetest =CreateObject("Scripting.FileSystemObject")
nuovadir = filetest.CreateFolder(public/images/auto/, cartella)
%>

<form method="POST" action="cartella.asp">
<p align="center"><input type="text" name="cartella" size="20"></p>
<p align="center"><input type="submit" value="Invia" name="B1"><input type="reset" value="Reimposta" name="B2"></p>
</form>
-----------------------------------------------

Errore:
-----------------------------------------------
Microsoft VBScript compilation error '800a03ee'

Expected ')'

/cartella.asp, line 6

nuovadir = filetest.CreateFolder(public/images/auto/, cartella)
-----------------------------------------------------^

cmq la freccetta s fermo su "public"
-----------------------------------------------

Grazie!

[deivnet]

CreateFolder accetta una stringa come parametro oppure una variabile.

Così è sbagliato

nuovadir = filetest.CreateFolder(public/images/auto/, cartella)

così è corretto

nuovadir = filetest.CreateFolder("public/images/auto/", cartella)

[willybit]

veramente neanche così è corretto....
essendo un oggetto serve il set, poi il parametro è una stringa sola e non due, ed in fine il percorso deve essere un percorso fisico, quindi ti conviene usare server.mappath

Set nuovadir = filetest.CreateFolder(Server.MapPath("public/images/auto/" & cartella))

[deivnet]

Si, in effetti ho scritto una emerita pippata

[GanT]

scusa ma mettendo:

Set nuovadir = filetest.CreateFolder(Server.MapPath("public/images/auto/" & cartella))

mi da questo errore:

-----------------------------------------
Microsoft VBScript runtime error '800a003a'

File already exists

/cartella.asp, line 6
-----------------------------------------

grazie

[rixx]

che esista già? :rollo:

[GanT]

forse x il set ripetuto subito dopo perchè cè qst:

set filetest =CreateObject("Scripting.FileSystemObject")

e poi subito qll x la cartella.
nella pagina non lho messo dua volte questo script o almeno la stringa x la cartella.
cosa sarà?

[rixx]

ma la cartella almeno una volta te l'ha creata? :master: cmq se tu in una pagina metti:

set newobj = CreateObject("Scripting.FileSystemObject")

Set nuovadir = newobj.CreateFolder(Server.MapPath("public/images/auto/" & cartella))

non te la crea due volte..
non è che sei in un ciclo?

[GanT]

nn me ne crea nemmeno una..e non è che dove cerco d crearla c sia una sola cartella con lo stesso nome...vabè ke m da l'errore già prima ke inserisca il nome...

[GanT]

cmq scusa!
me la crea la cartella ma ad ogni refresh della pagina mi da qst errore:

------------------------------------
Microsoft VBScript runtime error '800a003a'

File already exists

/cartella.asp, line 13
------------------------------------

ma poi compilando la form la cartella la crea cmq.
Come mai da qst errore. Lo sai?
grazie