dimensioni file per Upload

[spila]

ciao a titti per iniziare :

ho creato una form per inserimento file e upload del file stesso in un db access fin quì tutto ok

la mia domanda è la seguente vorrei visualizzare le dimensioni del file nella tabella che mostra tutti i file che sono in archivio come posso fare ( OggettoFile.Size ) ho letto delle cose ma non so come inserirlo nel codice .

il codice riguardante la tabella è il seguente :

While ((Repeat1__numRows <> 0) AND (NOT Estrai.EOF)) 
%>
  <tr>
    <th scope="row"></th>
    <th scope="row">"><%=(Estrai.Fields.Item("NomeFile").Value)%></th>
    <td><%=(Estrai.Fields.Item("DataFile").Value)%></td>
    <td><%=(Estrai.Fields.Item("Data").Value)%></td>
    <td><%=(Estrai.Fields.Item("Categoria").Value)%></td>
    <td><%=(Estrai.Fields.Item("Dimensioni").Value)%>     
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Estrai.MoveNext()
Wend
%>

ovviamente "imensioni " è vuoto perchè nel db non c'è nessun valore

[Roby_72]

Se hai creato un campo "dimensioni" non è questo lo script da modificare, ma quello nel quale carichi il file e inserisci i dati nel db (tra i quali la dimensione appunto).

Roby

[spila]

e come la inserisco la dimensione nel db ?

questo è lo script di upload del file

<%
'*** Pure ASP File Upload 2.1.4
Dim GP_uploadAction,UploadQueryString
PureUploadSetup
If (CStr(Request.QueryString("GP_upload")) <> "") Then
  Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout,pau_progressBar,pau_progressWidth,pau_progressHeight
  pau_thePath = """/public/Download"""
  pau_Extensions = ""
  pau_Form = "inserisci"
  pau_Redirect = ""
  pau_storeType = "file"
  pau_sizeLimit = ""
  pau_nameConflict = "error"
  pau_requireUpload = "true"
  pau_minWidth = ""
  pau_minHeight = "" 
  pau_maxWidth = ""
  pau_maxHeight = ""
  pau_saveWidth = ""
  pau_saveHeight = ""
  pau_timeout = "600"
  pau_progressBar = "fileCopyProgress.htm"
  pau_progressWidth = "300"
  pau_progressHeight = "100"
  
  Dim RequestBin, UploadRequest
  CheckPureUploadVersion 2.14
  ProcessUpload pau_thePath,pau_Extensions,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout
end if
%>

e questa è la form :

<form ACTION="<%=MM_editAction%>" METHOD="POST" enctype="multipart/form-data" name="inserisci" id="inserisci" onSubmit="checkFileUpload(this,'',true,'','','','','','','');showProgressWindow('fileCopyProgress.htm',300,100);return document.MM_returnValue">
      

</p>
      

</p>
      <table width="560" border="0" align="center" bgcolor="#FFB709">
        <tr>
          <td width="160" class="menu-titolo">Nome file </td>
          <td colspan="5"><input name="NomeFile" type="file" id="NomeFile" onChange="checkOneFileUpload(this,'',true,'','','','','','','')"></td>
        </tr>
        <tr>
          <td class="menu-titolo">Descrizione </td>
          <td colspan="5" class="menu-titolo"><textarea name="commento" cols="50" id="commento"></textarea></td>
        </tr>
        <tr>
          <td class="menu-titolo">Tipo file </td>
          <td width="68" class="menu-titolo"><select name="tipoFile" id="tipoFile">
            <option value="zip">zip</option>
            <option value="pdf">pdf </option>
          </select></td>
          <td width="89" class="menu-titolo">Categoria</td>
          <td width="54" class="menu-titolo"><select name="categoria" id="categoria">
            <option value="documenti">documenti</option>
            <option value="tecniche scout">tecniche scout</option>
          </select></td>
          <td width="85" class="menu-titolo Stile1">Riservato</td>
          <td width="78" class="menu-titolo Stile1"><select name="riservato" id="riservato">
            <option value="si">si</option>
            <option value="no">no</option>
          </select></td>
        </tr>
        <tr>
          <td height="26">
            <div align="center" class="menu-titolo">
              <div align="left">data file 
              </div>
            </div></td>
          <td height="26"><input name="data" type="text" id="data"></td>
          <td height="26">Autore</td>
          <td height="26"><input name="autore" type="text" id="autore"></td>
          <td height="26"></td>
          <td height="26"></td>
        </tr>
        <tr>
          <td height="26" colspan="6"><div align="center">
            <input type="submit" name="Submit" value="Iserisci Documento In Archivio">
          </div></td>
        </tr>
      </table>
      

</p>
      

</p>

            <input type="hidden" name="MM_insert" value="inserisci">
    </form>

[spila]

cambio idea per arrivare allo stesso risultato questo credo sia più semplice e più preciso :

con questa funzione leggo le dimensioni del file presente sul server :

<%
'dimensione file 
Function GetFileSize(filepath)
  Dim fso, f
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filepath)
  Response.Write("La dimensione del file è: ")
  Response.Write(FormatNumber(f.Size/1024, 2)&" Kb")
  Set f = nothing
  Set fso = nothing
End Function

Dim fname, fpath
fname = "/public/download/q.txt"  'nome del file da controllare
fpath = Server.MapPath(fname)
GetFileSize(fpath)
'fine 
%>

il problema è che in questo caso devo inserire il percorso e il nome del file

fname = "/public/download/q.txt"

io invese lo voglio dinamico come posso modificarlo in questa tabella di estrazione dati ?

<% 
While ((Repeat1__numRows <> 0) AND (NOT Estrai.EOF)) 
%>
  <tr>
    <th scope="row">"><%=(Estrai.Fields.Item("NomeFile").Value)%></th>
    <td><%=(Estrai.Fields.Item("DataFile").Value)%></th>
    <td><%=(Estrai.Fields.Item("Data").Value)%></td>
    <td><%=(Estrai.Fields.Item("Categoria").Value)%></td>
    <td>    <td><%=(Estrai.Fields.Item("Autore").Value)%>         
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Estrai.MoveNext()
Wend
%>

[spila]

ma non mi aiuta nessuno

help