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