Display Scrolling Files and Folders

[Art W.]

Display Scrolling Files and Folders

I would like to use a label to display a scrolling list of all of the files and folders on a computer, something like when you copy a file.

C:\folder1\folder2\file1
C:\folder1\folder2\file2
C:\folder2\folder2\file1
C:\folder2\folder2\file2…….

These would be displayed one at a time, I would also like them to be displayed by the size of the file also? Something like?

32mb *.001 seconds
128mb*.001 seconds

Any Ideas

Thanks

Art

[Andrew G]

Private Type FileData
    FilePath As String
    FileSize As Long
End Type
 
Dim FileInfo() As FileData
Dim Num As Long
Dim PrevTime As Long
 
Private Sub Form_Load()
    ReDim FileInfo(3)
    
    'Filelen gets size in b so u may have to change it to get in Mb
    
    FileInfo(0).FilePath = "C:\folder1\folder2\file1"
    FileInfo(0).FileSize = FileLen(FileInfo(0).FilePath)
    
    FileInfo(1).FilePath = "C:\folder1\folder2\file2"
    FileInfo(1).FileSize = FileLen(FileInfo(1).FilePath)
    
    FileInfo(2).FilePath = "C:\folder2\folder2\file1"
    FileInfo(2).FileSize = FileLen(FileInfo(2).FilePath)
    
    FileInfo(3).FilePath = "C:\folder2\folder2\file2"
    FileInfo(3).FileSize = FileLen(FileInfo(3).FilePath)
    
    Timer.Interval = 10     '0.01 sec
End Sub
 
Private Sub Timer_Timer()
PrevTime = PrevTime + 1
 
tempnum = Num - 1
If tempnum < 0 Then tempnum = UBound(FileInfo)
 
If PrevTime <= FileInfo(tempnum).FileSize Then Exit Sub
PrevTime = 0
 
lblDisplay.Caption = FileInfo(Num).FilePath
 
Num = Num + 1
If Num > UBound(FileInfo) Then Num = 0
End Sub