Come elaborare tutti i files txt presenti in una cartella anzichè uno soltanto...

[lotto_tom75]

Call ElencoFileInDirectory(sDir,aV,".txt")
i = ScegliOpzioneMenu(aV,,"Scegli il file txt desiderato")
ScegliFiletxt = sDir & aV(i) & ".txt"
End Function
Dim sFile1
Dim aLunghette
Dim sFiletxt
Dim contatore                                      

sFile1 = "C:\Users\lottotom\Desktop\filestxtdemo\" 

sFiletxt = ScegliFiletxt(sFile1)
LeggiRigheFileDiTesto sFiletxt,aLunghette

Io vorrei poter modificare questo pezzo di codice al fine di poter eseguire almeno una di queste due operazioni seguenti:

1) poter selezionare e analizzare i files desiderati presenti nella directory filestxtdemo che al momento lo script mi visualizza nell'elenco anzichè poterne selezionare ed elaborare uno soltanto come adesso.

2) poter elaborare tutti i files txt presenti in una determinata directory (es. filestxtdemo) se la prima opzione non è possibile implementarla.

Grazie infinite anticipate ai top scripters in ascolto che interveranno

 

[lotto_tom75]

Ci sono quasi arrivato... da solo...

Sub Main
    Dim aNum,k
    Dim aNumSel(10)

Dim i
Dim sdir
Dim ScegliFiletxt
ReDim aV(0)
ReDim sel(0)
Dim k0,aNum0
sdir = "C:\Users\lottotom\Desktop\filestxtdemo\"

Call ElencoFileInDirectory(sdir,aV,".txt")

aNum0 = Array(aV(0),aV(1),aV(2),aV(3),aV(4),aV(5),aV(6),aV(7),aV(8))

  If ScegliDaLista(aNum0,aNumSel) > 0 Then
        For k0 = 0 To UBound(aNum0)
            If aNumSel(k0) Then
                Call Scrivi(aV(k0) &".txt")
            End If
        Next
    Else
        MsgBox "Devi inserire almeno un valore"
   End If

Adesso però devo gestire il file dinamico "costruito" di volta in volta aV(k0)&".txt" e ciclarlo per ogni analisi... Qualche suggerimento?

Thanks!