A disk file lister. Lists all files on all disks on local computer. Needed features?

EDN Admin · Jul 27, 2010

Im working on a program that lists all of the files on all of the drives on my computer. Id appreciate any comments. To use the program: Start a new Windows Forms application and replace the code on Form1 with the code listed here.
 System.IO 
 System.ComponentModel 
 System.Globalization 
 Form1 
 Tabs MyTabControl 
 Form1_FormClosing( sender , e FormClosingEventArgs) .FormClosing 
 TP MyTabPage .Tabs.TabPages 
 TP.LV.BGW.IsBusy TP.LV.BGW.CancelAsync() 

 
 Form1_Load( sender , e EventArgs) .Load 
.Size = Size(800, 600) 
.Tabs.TabPages.Clear() 
.Tabs.Parent = 
 .Tabs.Dock = DockStyle.Fill 
 Drives() DriveInfo = DriveInfo.GetDrives 
 I = 0 Drives.Count - 1 
 Drives(I).IsReady 
 Tabs.TabPages.Add( MyTabPage(Drives(I))) 
 
 
 
End 
Public MyTabControl 
 TabControl 
 
Public MyTabPage 
 TabPage 
 DI DriveInfo 
 VScrl VScrollBar 
 Lbl TabPageLabel 
 LV MyListView 
 StartTime DateTime 
 ( DI DriveInfo) 
.DI = DI 
StartTime = Now 
.Text = DI.Name + 
 .Lbl = TabPageLabel(DI) 
.Lbl.Dock = DockStyle.Top 
.Lbl.Parent = 
 LV = MyListView(.DI) 
.LV.Top = .Lbl.Bottom 
.LV.Parent = 
 .VScrl.Parent = 
 .LV.BGW.RunWorkerCompleted, LVBGW_Complete 
 .VScrl.ValueChanged, VScrl_Changed 
 
 VScrl_Changed( sender , e EventArgs) 
.LV.LoadLV(VScrl.Value) 
 
 LVBGW_Complete( sender , e RunWorkerCompletedEventArgs) 
.LV.TotalItems = 0 
 I = 0 2 
.LV.TotalItems += .LV.LVIs(I).Count 

 VScrl.Maximum = .LV.TotalItems 
.Lbl.Text += + .LV.TotalItems.ToString + + Fix(Now.Subtract(StartTime).TotalSeconds).ToString 
.LV.LoadLV(.VScrl.Value) 
.Text = DI.Name 
(sender, MyBackGroundWorker).Dispose() 
 
 MyTabPage_Resize( sender , e EventArgs) .Resize 
.LV.Width = .ClientRectangle.Width - .VScrl.Width 
 BaseWidth = .LV.Columns(1).Width + .LV.Columns(2).Width + 500 
.LV.Columns(0).Width = 198 + (.LV.Width - BaseWidth) 2 
.LV.Columns(3).Width = 298 + (.LV.Width - BaseWidth) 2 
.VScrl.Left = .LV.Right 
.LV.Top = .Lbl.Bottom 
.LV.Height = .ClientRectangle.Height - .LV.Top 
.VScrl.Top = .LV.Top + 18 
.VScrl.Height = .LV.Height - 18 
.LV.DisplayedLines = ((.Height - 18) (.FontHeight + 4)) - 2 
.VScrl.LargeChange = .LV.DisplayedLines 
 .LV.TotalItems > 0 .LV.LoadLV(.VScrl.Value) 
 
End 
Public TabPageLabel 
 Label 
 ( DI DriveInfo) 
.AutoSize = 
 TotalSize = (DI.TotalSize / 1000000000).ToString() 
 TotalFreeSpace = (DI.TotalFreeSpace / 1000000000).ToString() 
.TextAlign = ContentAlignment.MiddleLeft 
.Text = + DI.VolumeLabel + _ 
 + TotalSize + _ 
 + TotalFreeSpace + _ 
 + DI.DriveType.ToString + _ 
 + DI.DriveFormat 
 
End 
Public MyListView 
 ListView 
 DI DriveInfo 
 BGW MyBackGroundWorker 
 LVIs(2) List( ListViewItem) 
 ( DI DriveInfo) 
.DI = DI 
.Scrollable = 
 BGW = MyBackGroundWorker(.DI) 
BGW.RunWorkerAsync(LVIs) 
.View = View.Details 
.GridLines = 
 .Columns.Add(, 200) 
.Columns.Add(, 70) 
.Columns.Add(, 70) 
.Columns.Add(, 300) 
 .ColumnClick, Me_ColumnClick 
 
 Me_ColumnClick( sender , e ColumnClickEventArgs) 
Col = e.Column 
Ascending(Col) = Ascending(Col) 
LVIs(0).Sort( CompareByColumn) 
.LoadLV(StartLine) 
 
 Col 
 Ascending(3) 
 CompareByColumn( X ListViewItem, Y ListViewItem) 
 Col = 2 
 IX = .Parse(X.SubItems(Col).Text) 
 IY = .Parse(Y.SubItems(Col).Text) 
 (Ascending(Col), (IX < IY, -1, (IX = IY, 0, 1)), _ 
(IY < IX, -1, (IX = IY, 0, 1))) 
 
 (Ascending(Col), .Compare(X.SubItems(Col).Text, Y.SubItems(Col).Text), _ 
.Compare(Y.SubItems(Col).Text, X.SubItems(Col).Text)) 
 
 TotalItems 
 StartLine 
 DisplayedLines 
 LoadLV( Line ) 
.Items.Clear() 
 I = Line Line + DisplayedLines - 1 
 I 
 < LVIs(0).Count 
.Items.Add(LVIs(0)(I)) 
 < LVIs(0).Count + LVIs(1).Count 
.Items.Add(LVIs(1)(I - LVIs(0).Count)) 
 < LVIs(0).Count + LVIs(1).Count + LVIs(2).Count 
.Items.Add(LVIs(2)(I - LVIs(0).Count - LVIs(1).Count)) 
 
 
 StartLine = Line 
 
End 
Public MyBackGroundWorker 
 BackgroundWorker 
 DI DriveInfo 
 DirExclude() = {} 
 LVIs(2) List( ListViewItem) 
 ( DI DriveInfo) 
.DI = DI 
.WorkerReportsProgress = 
 .WorkerSupportsCancellation = 
 
 OnDoWork( e DoWorkEventArgs) 
LVIs = (e.Argument, List( ListViewItem)()) 
 I = 0 2 
LVIs(I) = List( ListViewItem) 

 GetDirectoryFiles(.DI.Name) 
 .CancellationPending e.Cancel = : 
 .OnDoWork(e) 
 
 GetDirectoryFiles( DirPath ) 
 .CancellationPending 
 D DirExclude 
 DirPath.ToUpper.Contains(D) 
 
 F Directory.GetFiles(DirPath) 

 FileSize = FileLen(F).ToString 
 FileName = Path.GetFileNameWithoutExtension(F) 
 FileExtension = Path.GetExtension(F) 
LVIs(0).Add( ListViewItem( () {FileName, FileExtension, FileSize, DirPath})) 
 Ex Exception 
LVIs(1).Add( ListViewItem( () {Ex.ToString, , , F})) 
 
 F 
 D Directory.GetDirectories(DirPath) 

 GetDirectoryFiles(D) 
 Ex Exception 
LVIs(2).Add( ListViewItem( () {Ex.ToString, , , D})) 
 
 D 
 
End 

View the full article

A disk file lister. Lists all files on all disks on local computer. Needed features?

EDN Admin

Well-known member

Similar threads