J
Jack
I am having some trouble understanding arrays and how to Sort them.
The following code bellow looks for txt files in a specific directory.
The problem is that the 'DIR' function grabs the filenames randomly
as explained in the HELP file as Follows;
"Tip Because file names are retrieved in no particular
order, you may want to store returned file names in an array,
and then sort the array."
First, How would I define and populate an array that would store
the .txt files from a specific Directory.
The number of txt files in the directory will vary.
Second, How would I Sort The Array So that the files are are in the same
order as the Application.FileSearch.FoundFiles.Count
The code bellow is just a snippet of code from the Help file that I modified
But as you can tell I'm beginning to lose the understanding of what is going
on.
Please, any help is most appreciated.
With Application.FileSearch
.LookIn = sFilePath(j)
.FileName = "*.txt"
If .Execute() > 0 Then
MyFile = Dir(sFilePath(j))
For I = 1 To .FoundFiles.Count
MyFile = Left(MyFile, Len(MyFile) - 4) 'Removes the .txt
Extension
Application.Loadfromtext Forms, MyFile, .FoundFiles(I)
MyFile = Dir 'Get the next file in the same directory if there
is more than one.
Next I
End With
The following code bellow looks for txt files in a specific directory.
The problem is that the 'DIR' function grabs the filenames randomly
as explained in the HELP file as Follows;
"Tip Because file names are retrieved in no particular
order, you may want to store returned file names in an array,
and then sort the array."
First, How would I define and populate an array that would store
the .txt files from a specific Directory.
The number of txt files in the directory will vary.
Second, How would I Sort The Array So that the files are are in the same
order as the Application.FileSearch.FoundFiles.Count
The code bellow is just a snippet of code from the Help file that I modified
But as you can tell I'm beginning to lose the understanding of what is going
on.
Please, any help is most appreciated.
With Application.FileSearch
.LookIn = sFilePath(j)
.FileName = "*.txt"
If .Execute() > 0 Then
MyFile = Dir(sFilePath(j))
For I = 1 To .FoundFiles.Count
MyFile = Left(MyFile, Len(MyFile) - 4) 'Removes the .txt
Extension
Application.Loadfromtext Forms, MyFile, .FoundFiles(I)
MyFile = Dir 'Get the next file in the same directory if there
is more than one.
Next I
End With