Display Scrolling Files and Folders
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
Re: Display Scrolling Files and Folders
VB Code:
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
:)