selezione file da cartelle

[danielix05]

buongiorno,

1. io carico, tramite una pagina aspx, delle immagini con resize su una cartella.

2. successivamente carico un articolo sul db a cui devo associare l'immagine di prima.

come posso fare?

qualche dritta??? grazie.

[Mems]

La pagina dove carichi i dati nel db dovrebbe avere una combobox con l'elenco delle immagini presenti nella cartella dove sono state uppate.
Scegli l'immagine e il path della stessa, assieme agli altri dati dell'articolo, finiscono nel db.

[danielix05]

ciao mems
al momento il mio problema è proprio lo script che mi permette di avere l'elenco delle immagini in una data cartella

[danielix05]

navigando ho incontrato questo codice che mi sembra adatto, solo che é scritto in vbscript

la mia pagina di inserimento è scritta in jscript

vorrei integrarlo ma non vivo numerosi errori.

CODICE ORIGINALE

<%

Dim objFso, objFolder, objFiles 
Dim strFolder, strFile, strPath, strExt 
' Definisci il percorso della cartella da leggere 
strPath = "/public/pics/" 
strExt = ".JPG" 

' Crea gli oggetti FSO necessari 
Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

' Scorri tutti i file nella cartella 
for each strFile in objFiles 
' Controlla l'estensione 
if Right(strFile.name, Len(strExt)) = strExt then 
Response.Write(strFile.name) & "
" 
end if 
next 
' Distruggi oggetti e libera risorse 
Set objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing 

%>

STO CERCANDO DI MODIFICARLO COME SEGUE

........
<select name="foto">

<%

VAR strPath = "/public/pics/" 
VAR strExt = ".JPG" 

VAR objFso = Server.createObject("Scripting.FileSystemObject") 
VAR objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
VAR objFiles = objFolder.Files 

PUNTO DI ROTTURA--LINEA 100 for each strFile in objFiles 
' Controlla l'estensione 
if Right(strFile.name, Len(strExt)) = strExt then 
Response.Write(strFile.name) & "
" 
end if 

<option value="--"><%=strFile.name%></option>
              

next 
' Distruggi oggetti e libera risorse 
Set objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing 

%>
</select>

Ecco l'errore

Errore di compilazione di Microsoft JScript errore "800a03ed' 

Previsto '(' 

/admin/inserisci.asp, riga 100 

for each strFile in objFiles

come posso risolvere??? ho bisogno di finire questo scriptttttt.

[Mems]

La sintassi di vbscript è diversa da quella di jscript e i due linguaggi non possono coesistere nella stessa pagina.

[danielix05]

il fatto è che non trovo niente in rete che sia in Jscript e che faccia al caso mio.

che casino!!!

hai da suggerirmi qualche parola chiave?

[danielix05]

ciao ho impostato questo codice

<% @LANGUAGE="JScript" %>

<%
	// Reference the FileSystemObject
	var FSO = Server.CreateObject("Scripting.FileSystemObject");
	
	// Reference the Text directory
	var Folder = FSO.GetFolder(Server.MapPath("/orie3/img"));

	// Reference the File collection of the Text directory
  	var FileCollection = Folder.Files;

	// Display the number of files within the Text directory
	Response.Write("Number of files found: " + FileCollection.Count + "
");

	Response.Write("<select name="("foto"));">"; [/B]RIGA 16[/B]

	// Traverse through the FileCollection using the FOR loop
	for(var objEnum = new Enumerator(FileCollection); !objEnum.atEnd(); objEnum.moveNext()) {
	   strFileName = objEnum.item();

       Response.write("<option value=");""&strFileName&"";">"&Folder.Name&"</option>";
	   
	   Response.Write(strFileName + "
");
	   response.write("</option>");

	}
	// Destroy and de-reference enumerator object
	delete objEnum;
	objEnum = null;

	// De-reference FileCollection and Folder object
	FileCollection = null;
	Folder = null;

	// Destroy and de-reference FileSystemObject
	delete FSO;
	FSO = null;
%>

ma mi restituisce questo errore
chi mi può aiutare?



	
	
Number of files found: 20 significa quindi che il file funziona 

Errore di run-time di Microsoft JScript errore "800a138a' 

Prevista funzione 

/orie3/prova2.asp, riga 16

[Mems]

Response.Write("<select name="("foto"));">");

[danielix05]

ho fatto ma ecco l'errore

Errore di compilazione di Microsoft JScript errore "800a03ea' 

Errore di sintassi 

/prova2.asp, riga 16 

Response.Write("<select name="("foto"));">";);

mi segnala l'errore sulla parentesi che ho messo in grassetto.