Visual Basic

Dim sw As New StreamWriter("filepath")
sw.Write(WebBrowser1.DocumentText)
sw.Close()

<br />
 Private Sub ImportTextFile()<br />
 Dim dt as new DataTable<br />
 GetTableSchema(dt, "SELECT * From MyTable")<br />
 Dim TextFile() as String<br />
'<br />
'Populate your TextFile() array from the text file<br />
'<br />
<br />
 Dim dr As DataRow<br />
 For i As Integer = 0 To TextFile.GetUpperBound(0) - 1<br />
   dr = dt.NewRow<br />
   dr.Item(0) = TextFile(i)<br />
   dt.Rows.Add(dr) 'Maybe Put This is a Try...Catch Block<br />
 Next<br />
End Sub<br />
<br />
<br />
Public Function GetTableSchema(ByRef dt As DataTable, ByVal SelectString As String) As Boolean<br />
		Dim path As String = Application.StartupPath<br />
		Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _<br />
		& " Data source= C:\MyDB.mdb"<br />
		Dim strSelect As String = SelectString<br />
<br />
		Dim cn As New OleDb.OleDbConnection(cnStr)<br />
		Dim cmd As New OleDb.OleDbCommand(strSelect, cn)<br />
		Dim da As New OleDb.OleDbDataAdapter(cmd)<br />
		cmd.CommandTimeout = 5<br />
		Try<br />
			cn.Open()<br />
			da.FillSchema(dt, SchemaType.Source)<br />
			Return True<br />
		Catch ex As Exception<br />
			MessageBox.Show(ex.Message)<br />
			Return False<br />
		Finally<br />
			cn.Close()<br />
		End Try<br />
	End Function

Imports System.Io
.
.
.
Dim sysFolder As String = Environment.GetFolderPath(SpecialFolder.System)
sysFolder = Path.Combine(sysFolder, "Fonts")

IH8Microsoft wrote:

I know it is possible as I've seen demos done in VB but have no accompanying source code.

IH8Microsoft wrote:

I am trying to generate a list of all files and folders on the drive (including deleted ones). My main objective here is to access the Master File Table and list all of it's records.