Upload di Baol

[tomhead]

ecco il codice utilizzato per fa uploadre solo le immagini

	Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "/public/test"
		oUpload.UploadOnly "Images"
		oUpload.Upload
		oUpload.Save
		filename = oUpload.GetFileName()
	Set oUpload=Nothing

ecco l'errore che restituisce:

Microsoft VBScript runtime error '800a01a8' 

Object required: 'Files' 

/backoffice/shared/upload.asp, line 417

ho provato a togliere la riga oUpload.UploadOnly "Images" e funziona... cosa sbaglio?

[Baol74]

	Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "/public/test"
		oUpload.UploadOnly "Images"
		oUpload.Upload
		If oUpload.Count>0 then		
			oUpload.Save
			filename = oUpload.GetFileName()
			Response.Write "Il file è stato caricato : "& filename 
		Else
			Response.Write "Nessun file caricato"	
		End if		
		
	Set oUpload=Nothing

[tomhead]

l'errore rimane...

[Baol74]

allora il problema è sul form, metti l'attributo enctype=" ect.

[tomhead]

c'è già ...

[tomhead]

ecco tutto il codice:

If Request("Upload")="1" then
	Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "/public/test"
		oUpload.UploadOnly "Images"
		oUpload.Upload
		oUpload.Save
		filename = oUpload.GetFileName()
	Set oUpload=Nothing
	
'	Dim oUpload
'	Set oUpload = new cUpload
'		oUpload.AutoRename = False
'		oUpload.Overwrite = true
'		oUpload.SetPath "/public/test"
'		oUpload.UploadOnly "Images"
'		oUpload.Upload
'		If oUpload.Count > 0 then		
'			oUpload.Save
'			filename = oUpload.GetFileName()
			'Response.Write "Il file è stato caricato : "& filename 
		'Else
			'Response.Write "Nessun file caricato"	
'		End if
'	Set oUpload=Nothing	
end if

	<FORM ACTION="?upload=1" METHOD="Post" enctype="multipart/form-data" name="form" id="form">
        

ISTRUZIONI:</p>
        <ul>[*]Cliccare sul pulsante SFOGLIA.[*]Selezionare il file da uploadare.[*]Premere APRI.[*]Infine premere AGGIUNGI.[/list]
        <p align="center"><font size="2" face="Arial">

          </font> 	  
		File : 
		<INPUT TYPE="file" NAME="Campo1">

		<INPUT NAME="Enter" TYPE="submit" value="INVIA">
      </FORM>

[Baol74]

Ok, mi era sfuggito. Questo funziona. Il filtro va messo dopo la chiamata di oUpload.Upload

<%
If Request("Upload")="1" then
	Dim oUpload
	Set oUpload = new cUpload
		oUpload.AutoRename = False
		oUpload.Overwrite = true
		oUpload.SetPath "/public/test"
		oUpload.Upload
		oUpload.UploadOnly "Images"
		If oUpload.Count > 0 then		
			oUpload.Save
			filename = oUpload.GetFileName()
			Response.Write "Il file è stato caricato : "& filename 
		Else
			Response.Write "Nessun file caricato"	
		End if
	Set oUpload=Nothing	
end if
%>
<FORM ACTION="?upload=1" METHOD="Post" enctype="multipart/form-data" name="form" id="form">
	

ISTRUZIONI:</p>
	<ul>
	[*]Cliccare sul pulsante SFOGLIA.
	[*]Selezionare il file da uploadare.
	[*]Premere APRI.
	[*]Infine premere AGGIUNGI.
	[/list]
	<p align="center"><font size="2" face="Arial">

	  </font> 	  
	File : 
	<INPUT TYPE="file" NAME="Campo1">

	<INPUT NAME="Enter" TYPE="submit" value="INVIA">
  </FORM>

[tomhead]

funziona perfettamente.

grazie