Confrontare numero di file

[djjunior]

Ho una cartella sul server dove i file presenti sono presenti anche su db, in campo unico denominato FOTO dove sono inseriti i nomi dei file presenti sulla cartella del server intervallati dalla virgola, esiste un modo, è come, che aprendo la pagina dove c'è l'elenco delle foto uno script controlli che il numero di foto presenti nella cartella è uguale ai file presenti nel campo unico chiamato FOTO, se non sono uguali, deve caricare nel db, sempre nello stesso campo unico FOTO i nomi delle nuove foto inserite.
E' possibile?
Aiutatemi, grazie
G.

[cavicchiandrea]

La soluzione (credo) più semplice sia svuotare il campo FOTO poi ciclare la cartella e inserire i nomi nel campo.

[djjunior]

Grazie andrea, puoi farmi un esempio come "svuotare" il campo FOTO?
Grazie
G.

[djjunior]

Nessun aiuto?

[Vincent.Zeno]

1) conta quanti file (vedi recordset disconnesso) ci sono nella cartella (Nfile) e recuperane il nome che inserisci in una variabile (NomiFile)
2) conta quanti sono i valori (splittati) nel campo FOTO (Nvalori)
3) se in valore Nfile è diverso da Nvalori fai un update del campo FOTO con NomiFile


di quanti file si potrebbe parlare?

[djjunior]

La quantità dei file può variare ma max 100.
Ecco il record disconesso che utilizzo attualmente per elencarli e non saprei dove prendere il nr di file che contiene e racchiudere i nomi dei file in unica variabile:

    <%
Dim objFso, objFolder, objFiles
Dim strFolder, strFile, strPath, strExt

strPath = "/cartella/" 
strExt = ".JPG"

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

set custRs = Server.CreateObject("ADODB.Recordset")
custRs.Fields.Append "nome", 200, 300 ' adVarChar
custRs.Fields.Append "data", 7 ' Date

dim iContatore
dim displayPulsanti
iContatore = 0
displayPulsanti = true

custRs.Open
If objFiles.count > 0 then
For Each strFile in objFiles
if Right(lcase(strFile.name), Len(strExt)) = lcase(strExt) then 
        iContatore = iContatore + 1
end if

if iContatore <= 1 then
    displayPulsanti = true
end if
iContatore = 0 
  
custRs.AddNew
custRs("nome") = strFile.name
custRs("data") = strFile.DateCreated      
next

custRs.Sort = "data Desc"

custRs.movefirst
 Do until custRs.eof
    
    if Right(lcase(custRs("nome")), Len(strExt)) = lcase(strExt) then 
    %> 

qui li stampo

 <%
 iContatore = iContatore + 1
end if

custRs.movenext

loop
else
end if
Set objFso = Nothing 
Set objFolder = Nothing
Set objFiles = Nothing 
custRs.Close
set custRs = Nothing
%>

Poi come faccio a contare i valori splittati dal campo FOTO del db?
Puoi darmi una mano?
Grazie
G.

[cavicchiandrea]

1) conta quanti file (vedi recordset disconnesso) ci sono nella cartella (Nfile) e recuperane il nome che inserisci in una variabile (NomiFile)
2) conta quanti sono i valori (splittati) nel campo FOTO (Nvalori)
3) se in valore Nfile è diverso da Nvalori fai un update del campo FOTO con NomiFile


di quanti file si potrebbe parlare?

La trovo una strada molto più tortuosa, io come già detto svuoterei il campo foto con un update e ciclerei (con un foreach) la cartella per recuperare i nomi, popolo un array che salvo nel campo db.
Ma è soggettivo... auguri ad entrambi e buon lavoro

[djjunior]

Andrea, puoi indicarmi un esempio d come faresti tu?
Grazie

[cavicchiandrea]

Andrea, puoi indicarmi un esempio d come faresti tu?
Grazie

Se dopo 9 anni di frequentazione (1680 post) sul forum non sai eseguire un update db e un ciclo foreach, forse la programmazione non fa per te (senza offesa) e comunque intanto provaci prima svuoti il campo con un update poi provi a popolare un array con un ciclo
E poi Enzo e molto più bravo e paziente dato che non sviluppo quasi più in asp

[djjunior]

Salve,
sto strutturando come indicato da Vincent, ho recuperato tutto n° di file presenti nella cartella che nel db, ma mi manca come recuperare in una variabile i tutti dei file presenti nella cartella, utilizzandolo script che ho pubblicato su per il recordset disconesso.
So che devo prenderlo al di fuori del ciclo, ma non so come fare, potete aiutarmi?
Grazie
G.