Newsgroup: it.comp.appl.access
Titolo: Tabella file e revisioni

Salve a tutti,
un quesito per tutti:
Ho bisogno di tenere un indice delle revisioni ed avrei pensato di
poterlo fare con access.
Ho la necessità scorrere una directory o un insieme di directory,
ottenere l'elenco dei file contenuti e raggruppare una radice del nome
con indicati i dati presenti in altro punto del nome. Mi spiego con un
esempio:
supponiamo la directory contenga:
Pippo rev 01.doc
Pluto rev 01.doc
Pluto rev 02.doc
Topolino rev 01.doc
Pippo rev 03.doc
Mi serve compilare una tabella che contenga quindi le voci
Pippo | 01
Pippo | 03
Pluto | 01
Pluto | 02
Topolino | 01
Per poi creare un report che contenga tutte le revisioni di uno stesso
file.
Sarebbe interessante anche la possibilità di segnalare la mancanza di
contiguità dei numeri ma penso già di poterlo fare con un recordset e
scorrendo i campi per verificare che il precedente differisca dal
successivo esattamente di uno.
So che esistono delle funzioni per la selezione di parti di stringa
fino ad un dato numero di lettere, al limite potrei anche fare in modo
di escludere solo il finale per consentire lunghezza di nomi a
piacere, quello che mi manca è una funzione per leggere i nomi dei
file e metterli in stringa e il modo per creare i record in una
tabella.
Grazie in anticipo a tutti.

(.....)

La funzione Dir restituisce i nomi dei file contenuti in una cartella.
Quindi se la tabella si chiama Revisioni ed il campo per il nome file si chiama Nomefile, potresti fare così:
Dim rs As recordset, stnomefile as string
set rs = currentdb.openrecordset"Revisioni")
stnomefile=Dir("c:\tuopercorso\*.doc")
Do While  stnomefile <>""
  rs.addnew
  ' estrae la radice del nome file delimitata a destra dalla stringa ' rev'
  rs!NomeFile=Left$(stnomefile,instr(1,stnomefile," rev")-1)
  rs.update
  stnomefile=Dir("c:\tuopercorso\*.doc")
Loop
rs.close
set rs = nothing
Attenzione: ho scritto di getto e non l'ho testata quindi potrebbe non funzionare !
Vincenzo Turturro
Certificato Eucip Core Level
ITA 0000-002299 del 14/05/2007
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------
risorse Access:
http://www.accessgroup.it
---------------------------------------------
Il sito comune di it.comp.as400
http://www.faq400.com
---------------------------------------------

 - Mostra testo tra virgolette -
Ottimi suggerimenti, poi con l'help di access me la sto cavando.
Alla chiamata di Dir nel ciclo ho dovuto togliere gli argomenti
altrimenti non passa al file successivo.
C'era qualche errore di sintassi ma il codice che mi hai passato va
già piuttosto bene.
Adesso lo elaborerò per tagliuzzare meglio il nome del file ma penso
di potermela cavare da solo.
Grazie mille.

 - Mostra testo tra virgolette -
Una domanda aggiuntiva:
il codice così com'è fatto aggiunge in coda soltanto quindi se lancio
3 volte la procedura sulla stessa cartella mi inserisce tre volte i
nomi, per evitare duplicati ho creato un indice univoco ma ovviamente
questo fa comparire una serie di errori.
Esiste un altro modo di evitare duplicati senza generare errori o va
bene così e me la devo cavare con un grezzo OnError Resume Next ?