Buon giorno.
Devo creare l'oggetto FileSystemObject.GetFolder e dirgli di leggere tutte le cartelle presenti all'interno di quella principale...

ES.
Dim objFileSystemObject
Set objFileSystemObject = CreateObject("Scripting.FileSystemObject")

Dim objApriFile
Dim objFolder
strPath = "keyword.txt"

Set objFolder = objFileSystemObject.GetFolder(Serp-Analyzer)
Set objApriFile = objFileSystemObject.OpenTextFile(strPath, 1)

Do While Not objApriFile.AtEndOfStream
prendivalori = calcolaposizione(objApriFile.ReadLine) & "
"
Loop
----------------------------------------------
Devo dirgli di entrare nella cartella Serp-Analyzer e per tutte le cartelle presenti trovare e leggere il file "keyword.txt".........

Grazie mille