nome file dentro cartella

[yro]

non riesco a trovare niente con la ricerca.

dovrei farmi dare i nomi dei file dentro una cartella.

praticamente devo fare questo: controllare i nomi dei file nel db...controllare quelli nella cartella e trovare le differenze!!

ma un passo alla volta!!

grazie!!

[yro]

ok, ci sono riuscito pardon!!!!

adesso devo fare le differenze...

[yro]

come posso fare a trovare i file mancanti??

come faccio a fare la differenza tra i 2 risultati? :master:

[yro]

up!!

[yro]

prelevo cosi i 2 tipi di dati:

do while not rs01.EOF
response.Write(rs01.Fields.Item("IMAGE_FILE").Value)
response.Write("
")
rs01.movenext
loop
rs01.close()
set rs01 = nothing


Dim objFso, folder, files, file
Set objFso=Server.CreateObject("scripting.FileSystemObject")

Set folder= objFso.getFolder("c:\inetpub\wwwroot\piazzaerbe\foto")
Set files=folder.files

for each file in files
Response.write file.name & "
 "
next

adesso il problema è che non so come confrontarli per vedere se da qualche parte mancano!!

[cidific]

I nomi dei FileDB li metti in un arry1
I nomi dei FileSystem li metti in un arry2

for i=0 to Ubound(arry1)
 Flag=false
 for y=0 to Ubound(arry2)
  If arry1(i)=arry2(y) then
   Flag=true
   exit for
 next
 if Flag=false then 
  ''File arry1(i) non presente
 else
  '' File presente
 endif
next 

Per render l'idea

[yro]

:master:

sono confuso...non sono pratico con le arry!

[cidific]

prima del ciclo sul DB inizializzi il tuo Array

redim preserve MyFileDB(0)
'M.B. il metodo UBOUND() ti ritorna il numero massimo degli elementi del tuo Array. Ora UBOUND(MyFileDB()) sara' = 0 

nel ciclo di lettura dati DB aggiungi un elemento al max del tuo array

redim preserve MyFileDB(ubound(MyFileDB())+1) 

Poi inserisci il tuo dato nel nuovo elemento appena creato

MyFileDB(ubound(MyFileDB()))=Valore Preso DB 

Una volta terminato il cicll la stessa cosa la fai quando controlli i file presenti sulla tua cartella
Dopo di che cicli i due array come ti ho riportato nell'esempio.

P.s. C'e' un metodo in ASP che ti ritorna il path sel tuo server senza dover mettere il percorso assoluto ("c:\inetpub\wwwroot\piazzaerbe\foto"), ma non ricordo quale

[yro]

non è molto semplice per me...

intanto guarda se cosi puo andare...non mi da errore:

i=0
do while not rs01.EOF
redim Preserve arry1(i)
z=i+1
arry1(i)=rs01.Fields.Item("IMAGE_FILE").Value
'response.Write(rs01.Fields.Item("IMAGE_FILE").Value)
response.Write(arry1(i)&"
")

[cidific]

Originariamente inviato da yro
non è molto semplice per me...

intanto guarda se cosi puo andare...non mi da errore:

i=0
redim Preserve arry1(i) '' Inizializzi a 0
do while not rs01.EOF
i=i+1
redim Preserve arry1(i)[/B] ''Lo rendi grande quanto i
arry1(i)=rs01.Fields.Item("IMAGE_FILE").Value
'response.Write(rs01.Fields.Item("IMAGE_FILE").Value)
response.Write(arry1(i)&"
")