Determining whether I need a multi-dimension array

[pob]

I was all happy because thru some tutelage of others I created this
array to find the newest file in a directory. However, I then
realized its great that I now know the latest file, but I need to know
the name of the file. Unfortunately, I am only passing the date into
the array.

Do I need to create a m-d array ? If so how do I create a 2-d array
where I do not know how many rows I will be looping thru ?
Function fileageck() As Boolean()

Dim myfilename As String
Dim myfilepath As String
Dim strD As String
Dim strT As String
Dim datDT As Date
Dim i As Integer
Dim sngarray() As Date 'array to store filenames

myfilepath = "F:\test\"
myfilename = Dir(myfilepath & "test*.txt", vbHidden)

Do Until myfilename = ""
ReDim Preserve sngarray(i)
strD = Mid(myfilename, 5, 8)
strT = Mid(myfilename, 13, 4)
datDT = DateSerial(CInt(Mid(strD, 3, 2)) + 2000, Mid(strD, 5, 2),
Right(strD, 2)) + TimeSerial(CInt(Left(strT, 2)), CInt(Mid(strT, 3,
2)), CInt(Right(strT, 2)))
sngarray(i) = datDT
myfilename = Dir
i = i + 1
Loop

For i = 0 To UBound(sngarray)
myfilename = sngarray(i)
If i 0 Then
If myfilename sngarray(i - 1) Then
'File being tested is the newest so this file is the winner until
the next loop
Else
myfilename = sngarray(i - 1)
End If
Else
End If
Next i

End Function

[Tom van Stiphout]

On 30 Jan 2007 20:46:23 -0800, "pob" <po*******@gmail.comwrote:

Rather than sngArray (btw, a bad variable name; sng means "single" for
most people), use a UDT = user defined type:
In a module, declare (off the top of my head)
type MyFileData
strFilename as String
dtFileDate as Date
end type

Then declare your array:
dim aryFiles() as MyFileData

and in your loop, set the values:
aryFiles(i).strFilename = myFilename
aryFiles(i).dtFileDate = datDT

-Tom.

>I was all happy because thru some tutelage of others I created this
array to find the newest file in a directory. However, I then
realized its great that I now know the latest file, but I need to know
the name of the file. Unfortunately, I am only passing the date into
the array.

Do I need to create a m-d array ? If so how do I create a 2-d array
where I do not know how many rows I will be looping thru ?
Function fileageck() As Boolean()

Dim myfilename As String
Dim myfilepath As String
Dim strD As String
Dim strT As String
Dim datDT As Date
Dim i As Integer
Dim sngarray() As Date 'array to store filenames

myfilepath = "F:\test\"
myfilename = Dir(myfilepath & "test*.txt", vbHidden)

Do Until myfilename = ""
ReDim Preserve sngarray(i)
strD = Mid(myfilename, 5, 8)
strT = Mid(myfilename, 13, 4)
datDT = DateSerial(CInt(Mid(strD, 3, 2)) + 2000, Mid(strD, 5, 2),
Right(strD, 2)) + TimeSerial(CInt(Left(strT, 2)), CInt(Mid(strT, 3,
2)), CInt(Right(strT, 2)))
sngarray(i) = datDT
myfilename = Dir
i = i + 1
Loop

For i = 0 To UBound(sngarray)
myfilename = sngarray(i)
If i 0 Then
If myfilename sngarray(i - 1) Then
'File being tested is the newest so this file is the winner until
the next loop
Else
myfilename = sngarray(i - 1)
End If
Else
End If
Next i

End Function

[Tim Marshall]

pob wrote:

I was all happy because thru some tutelage of others I created this
array to find the newest file in a directory. However, I then

I say, have you considered the FoundFiles Object? I use a variation of
this to populate a temporary Jet table in one of my Oracle applications
with image locations so that my splash and "about" form can randomly
display pictures from a specified directory. Looking more closely at
the help on the FoundFiles Object, I also looked up the execute method
applies to the FileSearch object. There is an msoSortByLastModified
expression that might of some use.
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "Be Careful, Big Bird!" - Ditto "TIM-MAY!!" - Me