John's Tech Tips

Code: Select all

Dim Files(150),MaxFiles 

Class FileInfoClass
 Public FileSize
 Public FileSizeNum
 Public Name
 Public FullPath
 Public FileType
 Public FileDate
 Public Icon
End Class

For i = 0 to UBound(Files)
	Set Files(i) = New FileInfoClass
next

MaxFiles = 0