selezionare file in cartella da

[DarioMarco]

Salve a tutti, vorrei crearmi uno script che mi prende dei file nella cartella
li legge ad uno ad uno, controlla se il file è presente nel db, se non lo è, lo
cancella, io ho elaborato un procedimento, ma ho alcune lacune:

Per selezionare il file dalla cartella mi basta fare:

Set fso = CreateObject("Scripting.FileSystemObject")
Set dove = fso.GetFolder(Server.MapPath("\lacartella\")) 
Set cartella = dove.Files 

'1 qui attuo una procedura che seleziona i file uno ad uno
For Each file In cartella 

'2 qui dovrei selezionare il file ma non so come devo fare.

'3 mi connetto
set conn = CreateObject("ADODB.Connection")
'4 apro il db e vedo se ci sta il file
conn.open...
set recordset = CreateObject("ADODB.Recordset")
set recordset = conn.execute("select * from database where file="&file)
if recordset.eof then

'5 lo cancello
set del = CreatObject("Scripting.FileSystemObject")
set canc =del.DeleteFile(Server.MapPath("\lacartella\"&file))

end if

next

vorrei sapere nel punto 2 come potrei fare,
grazie, ciao.

[Roby_72]

E questa ti funziona?

set recordset = conn.execute("select * from database where file="&file)

Roby

[DarioMarco]

beh, dovrebbe funzionare, a dire il vero, io il codice lo improvviso sul momento, se faccio qualche errore di dattilografia, o di dimenticanza sciocca non farci caso, a me interessa la logica del procedimento.
Se poi ho fatto qualche altro errore, grazie per le corezzioni .
Grazie, ciao.

[Roby_72]

Nel tuo esempio il campo "file" del db dovrebbe essere numerico.
Possibile?

Roby

[DarioMarco]

E' vero, perdonami, errata corrige:

set recordset = conn.execute("select * from database where file='"&file&"'")

come potrei fare per il secondo passaggio???

Grazie, ciao.

[teorema55]

Set fso = CreateObject("Scripting.FileSystemObject")
Set dove = fso.GetFolder(Server.MapPath("\lacartella\")) 
Set cartella = dove.Files 

For Each file In cartella 

nome = file.filename

set conn = CreateObject("ADODB.Connection")
conn.open...
set recordset = CreateObject("ADODB.Recordset")
set recordset = conn.execute("select * from database where file="&nome)
if recordset.eof then

'5 lo cancello
set del = CreatObject("Scripting.FileSystemObject")
set canc =del.DeleteFile(Server.MapPath("\lacartella\"&file))

end if

next

Così? Oppure file.name? Non mi ricordo, provali entrambi.....

[DarioMarco]

ok, così va meglio, li pro e ti faccio sapere quale mi restituisce il nome del file selezionato
Grazie, ciao.
p.s. ci vorranno almeno 4 giorni per provarli

[teorema55]

Allora ti conviene portarti dei panini..............