none
특정 파일을 열고싶습니다. RRS feed

  • 질문

  •  저는 텍스트 박스에 입력받은 내용과 같은 파일이름의 파일을 열고 싶은데 잘 안되네요. 완전 초보라 예제를 보면서

    하고 있는데 힘들더라구요.

     Private Sub modelcreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles modelcreate.Click
            If TextBox2.Text = "" Then
                MessageBox.Show("모델명을 입력하지 않았습니다. 모델명을 입력해주세요.")
                TextBox2.Focus()
                TextBox3.Visible = False
                btnsave.Visible = False
            Else : Dim strLine As String
                FileOpen(1, "c:\test\demo1.txt", OpenMode.Input)   <-------------------------여기를 textbox2에 입력한 내용과 같은 이름의 파일을 열고 싶습니다.
                Do Until EOF(1)                                                                                             디렉토리는 예를 들면 c:\test\파일
                    strLine += LineInput(1) + ControlChars.CrLf
                Loop
                FileClose(1)
                TextBox3.Visible = True
                btnsave.Visible = True
                TextBox3.Text = strLine

     좀 알려주시면 감사하겠습니다.

    2012년 5월 3일 목요일 오후 1:35

답변

  • 안녕하십니까? 헤일로 님,
    Microsoft TechNet의Forum 사이트를 방문해 주셔서 감사합니다.

    현재 문의 하신 ”특정 파일을 열고싶습니다" 대해 답변을 드리겠습니다.

    아래 부분을 참고하셔서 시도해 보시기 바랍니다.

    Dim j As String = "Joe said ""Hello"" to me."
    Dim h As String = "Hello"
    ' The following messages all display the same thing:
    ' "Joe said "Hello" to me."
    MsgBox(j)
    MsgBox("Joe said " & """" & h & """" & " to me.")
    MsgBox("Joe said """ & h & """ to me.")

    Imports System Imports System.IO
    Imports System.Text

    Public Class Test
        Public Shared Sub Main()
            ' This sample assumes that you have a folder named "c:\temp" on your computer.
            Dim filePath As String = "c:\temp\MyTest.txt"
            Dim fs As FileStream
           
            ' Delete the file if it exists.
            If File.Exists(filePath) = True Then
                File.Delete(filePath)
            End If
           
            ' Create the file.
            fs = File.Create(filePath)
            Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.")

            ' Add some information to the file.
            fs.Write(info, 0, info.Length)
            fs.Close()

            ' Open the stream and read it back.
            fs = File.Open(filePath, FileMode.Open, FileAccess.Read)
            Dim b(1024) As Byte
            Dim temp As UTF8Encoding = New UTF8Encoding(True)

            ' Display the information on the console.
            Do While fs.Read(b, 0, b.Length) > 0
                Console.WriteLine(temp.GetString(b))
            Loop

            Try
                ' Try to write to the file
                fs.Write(b, 0, b.Length)

            Catch e As Exception
                Console.WriteLine("Writing was disallowed, as expected: " & e.ToString())

            End Try

            fs.Close()

        End Sub
    End Class

    [참고자료]

    File.Open 메서드 (String, FileMode, FileAccess)

    제시해 드린 답변이 도움이 되었기를 바랍니다.

    답변이 문제 해결에 도움이 되었다면 답변으로 채택을 부탁드립니다.
    하지만 문제 해결이 되지 않아서 정확한 답변을 원하는 경우에는 문제의 정보를 더 자세하게 답변으로 제공해주시기 바랍니다.


    • 편집됨 Jina LeeModerator 2012년 5월 4일 금요일 오전 4:31
    • 답변으로 표시됨 헤일로 2012년 5월 4일 금요일 오후 12:59
    2012년 5월 4일 금요일 오전 4:28
    중재자