More FileIO…

Open a file…

Dim sr As New StreamReader("c:\303.htm", System.Text.Encoding.Default)

Write to a file…

Dim sw As StreamWriter

sw = New StreamWriter("c:\look.htm", False, System.Text.Encoding.Default)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dirInfo As New DirectoryInfo("C:\")

Dim aFiles = dirInfo.GetFiles()

Dim aDirs = dirInfo.GetDirectories()

'Loop through the files...

Dim fi As FileInfo

For Each fi In aFiles

            MsgBox(fi.Name & " " & fi.LastWriteTime)

Next

'Loop through the directories...

Dim di As DirectoryInfo

For Each di In aDirs

            MsgBox(di.Name & " " & di.CreationTime)

Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim strFileSize As String = ""

Dim di As New IO.DirectoryInfo("C:\data\temp")

Dim aryFi As IO.FileInfo() = di.GetFiles("*.txt")

Dim fi As IO.FileInfo

For Each fi In aryFi

            strFileSize = (Math.Round(fi.Length / 1024)).ToString()

            Console.WriteLine("File Name: {0}", fi.Name)

            Console.WriteLine("File Full Name: {0}", fi.FullName)

            Console.WriteLine("File Size (KB): {0}", strFileSize)

            Console.WriteLine("File Extension: {0}", fi.Extension)

            Console.WriteLine("Last Accessed: {0}", fi.LastAccessTime)

            Console.WriteLine("Read Only: {0}", (fi.Attributes.ReadOnly = True).ToString)

Next

End Sub

Dim objWriter As New StreamWriter("c:\Look.txt")

        objWriter.WriteLine("Hello World")

        objWriter.Close()

Dim objReader As New StreamReader("c:\Look.txt")

Dim s As String

        s = objReader.ReadLine

Do While Not s Is Nothing

            MsgBox(s)

            s = objReader.ReadLine

Loop

        objReader.Close()

File and Directory Operations…

Imports System.IO

'Load The Drives List Box...*************

Dim drives() As String '*

Dim i As Integer '*

        drives = Directory.GetLogicalDrives    '*

For i = 0 To UBound(drives)            '*

            cmbDrives.Items.Add(drives(i))     '*

Next '*

'Select the C:\ Drive....

        cmbDrives.SelectedItem = "C:\"         '*

'****************************************

'Load the Directories List Box... ********

Dim i As Integer '*

Dim a() As String '* 

        a = Directory.GetDirectories(vPath)     '*

        lstDirectories.Items.Clear()            '* 

        lstDirectories.Items.Add("..")

For i = 0 To UBound(a)                  '*

            lstDirectories.Items.Add(a(i))      '*

Next '*

'*****************************************

'********** Write, Read, Delete A File *********************

Dim fs As New FileStream("C:\Temp.txt", FileMode.Create)  '*

Dim SW As New StreamWriter(fs)                            '*

        SW.WriteLine("Hello")                                     '*

        SW.WriteLine("World")                                     '*

        SW.Close()                                                '*

        fs.Close()                                                '*

'                                                          *

        fs = New FileStream("c:\Temp.txt", FileMode.Open)         '*

Dim sr As New StreamReader(fs)                            '*

Dim strA As String '*

        strA = sr.ReadLine()                                      '* 

Do While strA <> Nothing '*

            MsgBox(strA)                                          '*

            strA = sr.ReadLine                                    '*

Loop '*

        sr.Close()                                                '*

        fs.Close()                                                '*

'                                                          *

If File.Exists("C:\Temp.txt") Then '*

            File.Delete("C:\Temp.txt")                            '*

End If '*

'***********************************************************