티스토링

1. 쓰기

Imports System

Imports System.IO

Imports System.Text

Sub test_create()

        Dim path As String = "c:\NewFolder\MyTest.txt"

        ' Create or overwrite the file.

        Dim fs As FileStream = File.Create(path)

        ' Add text to the file.

         Dim writer As StreamWriter = New StreamWriter(path)

        writer.WriteLine("File created using StreamWriter class.")

        writer.Close()

    End Sub

2.삭제

폴더전체 삭제

     For Each foundFile As String In My.Computer.FileSystem.GetFiles(

        "C:\NewFolder",

        FileIO.SearchOption.SearchAllSubDirectories, "*.*")

            My.Computer.FileSystem.DeleteFile(foundFile,

            FileIO.UIOption.OnlyErrorDialogs,

            FileIO.RecycleOption.DeletePermanently)

        Next

개별 삭제

My.Computer.FileSystem.DeleteFile("C:\NewFolder\MyTest.txt")

3. 생성

Imports System.IO

Private Function aaaaaa()

        '파일 내용에서 내용 넣기

        Dim writer As StreamWriter = New StreamWriter("c:\KBTest.txt")

        writer.WriteLine("File created using StreamWriter class.")

        writer.Close()

        '파일 내용 읽은 후 리스트 박스에 넣기

        Dim reader As StreamReader = New StreamReader("c:\KBTest.txt")

        Try

            Me.ListBox1.Items.Clear()

            Do

                Me.ListBox1.Items.Add(reader.ReadLine)

            Loop Until reader.Peek = -1

        Catch

            Me.ListBox1.Items.Add("File is empty")

        Finally

            reader.Close()

        End Try

    End Function