Confrontare numero di file

[Vincent.Zeno]

E poi Enzo e molto più bravo e paziente

dimmi che bar frequenti che ti lascio brioche e cappuccino


la logica da me suggerita risponde alla domanda "verifico il numero dei file e, se necessario, faccio un update"
quella suggerita da andrea è più semplice ma non verifica la necessità di esser eseguita (che poi andrebbe semplificata inserendo direttamente le lista acquisita senza bisogno di svuotare il campo).

mi manca come recuperare in una variabile i tutti dei file presenti nella cartella, utilizzandolo script che ho pubblicato su per il recordset disconesso.

semplice. hai già in opera un ciclo, basta inserirci un variabile incrementale; da popolare con ogni file che ha rilevato

For Each strFile in objFiles
if Right(lcase(strFile.name), Len(strExt)) = lcase(strExt) then 
        iContatore = iContatore + 1
        NomiFile = NomiFile & ","
end if

una volta ottenuta la lista, se necessario, la ripulisci dalla virgola finale; quindi la inserisci nel db con un semplice update del campo FOTO del record che ti interessa

[Vincent.Zeno]

hai ragione, scusa (sono andato dritto all'obbiettivo scordandomi un passaggio).
svista banale, potevi accorgertene perfino tu!

For Each strFile in objFiles
if Right(lcase(strFile.name), Len(strExt)) = lcase(strExt) then 
        iContatore = iContatore + 1
        NomiFile = NomiFile & lcase(strFile.name) & ","
end if

[djjunior]

Grazie VINCENT,
ma purtroppo penso di non aver capito, ho inserito il tuo codice, ma nel db inserisco solo virgole....
Dove sbaglio?

[djjunior]

Grazie Vincent,
ma se invece di fare l'upload totale da zero dei nomi, vorrei aggiungerli nel valore nel db:c
cioè nel campo foto c'è: foto01.jpg, foto02.jpg e vorrei aggiungere tipo:, foto03.jpg etc, come posso fare?
Grazie
G.

[Vincent.Zeno]

l'update (all'interno di un campo) non può essere selettivo, devi comunque inserire tutto daccapo.

[djjunior]

Grazie Vincent, durante il caricamento in db come posso ovviare che dopo l'ultimo file non si inserisca la virgola?
Grazie
G.

[Vincent.Zeno]

come ho detto prima... fai una pulizia della variabile.

cerca l'ultima occorrenza e se si tratta di una virgola rimuovila.
suggerisco appunto di verificare che si tratti di virgola, e di non eliminare tout court "l'ultimo carattere"


puoi usare le funzioni right (per verificare) e replace (per togliere)
oppure, una volta verificata l'occorrenza, semplicemente togliere l'ultimo carattere

[djjunior]

Ho fatto così, ma la stringa NomiFile viene eliminata tutta:
NomiFile è la stringa completa che finisce con la virgola e uno spazio bianco.

if Right(NomiFile, 2) = ", " then
NomiFile = Replace(NomiFile, ", "," ")

Dove sbaglio?

[Vincent.Zeno]

per come hai fatto elimini tutte la occorrenze di ", " sostituendole con uno spazio

quindi non avrai più la virgola come separatore di valori

[djjunior]

E quindi aiutami, come posso modificarlo?
Grazie
G.