Buongiorno Osvaldo, provo a spiegarmi meglio: ho una quattro serie di files su quattro directory e volevo che una
Tabella Access recepisse, in modo dinamico, le variazioni (ad es. inserimento di nuovi files, cancellazione degli stessi ecc.).
Direi che il codice che ho scritto raggiunge lo scopo che mi ero prefissato: infatti a questi file
(per te che sei musicista formato cakewalk *.cwp) sono associati degli esercizi di armonia e di scale.
Siccome il numero di file stava crescendo, per evitare operazioni del tipo
dir *.cwp > listafilescwp.txt
e poi importare questa lista in una tabella Access dedicata ho pensato, anche alla luce dei vostri suggerimenti,
di operare così.
Sicuramente esistono soluzioni più eleganti che recepirò con piacere. Un saluto a te e alla community, m.
Private Sub RDF_CWP_Click()
Dim rs1 As DAO.Recordset
Set rs1 = CurrentDb.OpenRecordset("T_Lista_Cakewalk", dbOpenTable)
DoCmd.RunSQL "delete * FROM T_Lista_Cakewalk"
Dim f
Dim i As Long
i = 0
f = Dir("c:\onedrive\documenti\progetti sonar\_jazz\*.cwp")
Do While (f <> "")
rs1.AddNew
rs1.Fields("Cakewalk") = f
rs1.Update
i = i + 1
f = Dir
Loop
f = Dir("c:\onedrive\documenti\progetti sonar\_JazzVocalSux\*.cwp")
Do While (f <> "")
rs1.AddNew
rs1.Fields("Cakewalk") = f
rs1.Update
i = i + 1
f = Dir
Loop
f = Dir("c:\onedrive\documenti\progetti sonar\_MLF\*.cwp")
Do While (f <> "")
rs1.AddNew
rs1.Fields("Cakewalk") = f
rs1.Update
i = i + 1
f = Dir
Loop
f = Dir("c:\onedrive\documenti\progetti sonar\jAZZSTUDIO\*.cwp")
Do While (f <> "")
rs1.AddNew
rs1.Fields("Cakewalk") = f
rs1.Update
i = i + 1
f = Dir
Loop
End Sub