Reading all files from the certain directory

[TyP]

Hello! Help me please. I need to read all files from the directory. Number of files may vary.

 

[handleman]

Typ:
It's really not clear what you mean by "read"ing the files. Do you need to know how to read a text file, or is getting all the filenames sufficient? Do you need the filenames in an array?

Try this:

Dim fso As Scripting.FileSystemObject
Dim myFolder As Scripting.Folder
Dim myFiles As Scripting.Files
Dim myFile As Scripting.File
Dim myFileName As String
Dim FileNameArray() As String
Dim ArrayCounter As Long

Dim SrcFolder As String

SrcFldrPth = InputBox("Enter the source path")

Set fso = CreateObject("scripting.filesystemobject")
Set myFolder = fso.GetFolder(SrcFldrPth)
Set myFiles = myFolder.Files

ArrayCounter = 0
For Each myFile In myFiles
    ReDim Preserve FileNameArray(ArrayCounter)
    myFileName = myFile.Name
    FileNameArray(ArrayCounter) = myFileName
    ArrayCounter = ArrayCounter + 1
Next