devo aprire in sequenza tutti i file in una directory

[toni64]

buongiorno !
in VBA devo aprire tutti i file presenti in una directory specificata uno
dopo l altro .
i files non sono xls ma .txt
li aprirei con l istruzione
Open MyFile for Input as #1 ..

sto cercando l istruzione che mi consenta di aprire tutti i file nella
directory, senza definire a priori il nomer del file.
Pensavo a qualcosa tipo
for each ... in ...

next

ma non so cosa mettere nei campi puntinati.
qualcuno sa aiutarmi ?
grazie
toni

[Tiziano Marmiroli]

Post by toni64
in VBA devo aprire tutti i file presenti in una directory specificata uno
dopo l altro .
i files non sono xls ma .txt
li aprirei con l istruzione
Open MyFile for Input as #1 ..
sto cercando l istruzione che mi consenta di aprire tutti i file nella
directory, senza definire a priori il nomer del file.
Pensavo a qualcosa tipo
for each ... in ...
next

Count Files in a directory (All file types only, using FileScriptingObject)
http://www.vbaexpress.com/kb/getarticle.php?kb_id=238

Facci sapere se e come hai risolto, grazie.

[r]

Post by toni64
buongiorno !
in VBA devo aprire tutti i file presenti in una directory specificata uno
dopo l altro .
i files non sono xls ma .txt
li aprirei con l istruzione
Open MyFile for Input as #1 ..
sto cercando l istruzione che mi consenta di aprire tutti i file nella
directory, senza definire a priori il nomer del file.
Pensavo a qualcosa tipo
for each ... in ...
next
ma non so cosa mettere nei campi puntinati.
qualcuno sa aiutarmi ?
grazie
toni

ciao
r


Public Sub mLeggiFile( _
Path As String)

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(Path)

For Each oFile In oFolder.Files
Debug.Print oFile.Path
Next
End Sub

--
----------------------------------------------------------------------------------------

http://excelvba.altervista.org/blog/index.php/Table/Excel-VBA/

[toni64]

Post by r
Public Sub mLeggiFile( _
Path As String)
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(Path)
For Each oFile In oFolder.Files
Debug.Print oFile.Path
Next
End Sub
--
----------------------------------------------------------------------------------------

grazie nuovamente !
toni