copiare file in sottocartella public

[linus]

Salve a tutti,
ho il seguente problema:
Da un form di registrazione al sito riesco a crearmi la certella per l'utente
appena creato con il seguente codice :

<% username = Replace(Request("txtUserName"), " ", "_")
path = "/public/"
Set objFso = Server.createObject("Scripting.FileSystemObject")
objFso.createFolder(Server.MapPath(path&username))
Set objFso = Nothing
%>

nella cartella public è presente un file protected.asp che vorrei copiare nella sottocartella dell'utente appena registrato es. /public/utente con il seguente codice :

<%
Dim fsoMyFile

'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
'Copia un file, se esiste lo sovrascrive (True).
fsoMyFile.CopyFile Server.MapPath("/public/protected.asp"), Server.MapPath("/public/") & username & ("protected.asp"), True
%>

Ma non riesco a farlo funzionare, qualcuno può aiutarmi ?

Il tutto deve funzionare su un server Aruba.

Grazie in anticipo

[Roby_72]

L'errore?

Roby

[linus]

Quello è il bello, non mi dà nessun errore!!
Però non mi copia il file.
La cartella viene creata appena invio i dati con il tasto submit ma il file non và.

[alexba64]

Prova a sostituire il Server.MapPath con il percorso completo:

D:\Inetpub\webs\tuodominiocom\public\


e vedi che succede

[linus]

Provato!!
Non funziona neanche in questo modo.
Ho cambiato anche lo script :

Dim fsoMyFile
strFileName="protected.asp"

Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

strLocation1 = "/public/" & strFileName
strLocation2 = "/public/" & username & strFileName
objFSO.CopyFile strLocation1, strLocation2, true

ma quello che secondo me non viene interpretato è il valore:

strLocation2 = "/public/" & username & strFileName
|
------------------------------
oppure forse perchè impegando un pò di tempo a creare la cartella sul server questa
non viene trovata al momento della copia del file

Spero in un vostro aiuto

[Roby_72]

Se la cartella non ci fosse darebbe errore...
Non è che da qualche parte hai un "on error resume next"?

Roby

[linus]

Si ma non restituisce nessun errore

<%
Dim fsoMyFile
strFileName="protected.asp"
'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

strLocation1 = "/public/" & strFileName
strLocation2 = "/public/" & "/" & username & "/" & strFileName
objFSO.CopyFile strLocation1, strLocation2, true
on error resume next
%>

[linus]

Problema risolto così :

Dim fsoMyFile

'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Copia un file, se esiste lo sovrascrive (True).
fsoMyFile.CopyFile Server.MapPath("/public/protected.asp"), _
Server.MapPath("/public/" & username & "/" & "protected.asp"), True
on error resume next

Mancava solo il trattino tra i origine e destinazione


Grazie per l'aiuto.
Spero che sia utile a qualcunaltro.

Adesso arriva il peggio :
Devo dare all'amministratore la possibilità di inviare file personalizzati per ogni utente sulla pagina protected.asp

I vostri consigli sono preziosi.
Saluti