Reading all files from the certain directory
Reading all files from the certain directory
(OP)
Hello! Help me please. I need to read all files from the directory. Number of files may vary.
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
Reading all files from the certain directory
|
RE: Reading all files from the certain directory
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:
CODE
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