|
Public Class Form1
Dim MFTRead As New MFTRead
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
cboDrives.DataSource = MFTRead.GetDrivesList()
End Sub
Private Sub cboDrives_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboDrives.SelectedIndexChanged
If MFTRead.IsNFTSDrive(cboDrives.Text) Then
btnScan.Enabled = True
lblIsNTFS.Text = "NTFS"
Else
btnScan.Enabled = False
lblIsNTFS.Text = "NOT NTFS"
End If
End Sub
Private Sub btnScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScan.Click
DataGridView1.DataSource = MFTRead.GetFiles(cboDrives.Text, chkAll.Checked)
lblInfo.Text = MFTRead.strInfo
End Sub
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.