2015-01-23 3 views
0

VB에서 일부 프로그램을 작성 중이며 리소스의 파일에서 텍스트가있는 txt 파일을 만들고 싶습니다. 너 이해하지 못했지, 그렇지? 그래서 이렇게됩니다.리소스의 텍스트가있는 파일 쓰기 Visual Basic

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

    ' Create or overwrite the file. 
    Dim fs As FileStream = File.Create(path) 

    ' Add text to the file. 
    Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.") 
    fs.Write(info, 0, info.Length) 
    fs.Close() 

은 특정 텍스트가있는 txt 파일을 만들기위한 코드입니다. 그러나 다음과 같은 것이 필요합니다.

Dim fd As New FolderBrowserDialog 
    fd.ShowDialog() 

폴더를 선택하면, 내가 그 폴더에 파일을 작성해야합니다, 나는 프로그램에있는 유일한 기능이며, 파일의 이름은 config.cfg되어야하지만, 파일에서 텍스트에 진행되는 선택된 폴더에 생성 될 텍스트는 Recources에있는 MyTxt 파일의 텍스트 여야합니다.

나는

Dim path As String = fd.SelectedPath 
    Dim fs As FileStream = File.Create(path) 

    ' upisuje tekst u fajl 
    Dim info As Byte() = New UTF8Encoding(True).GetBytes(application.startuppath & "\..\..\Resources\config.cfg") 
    fs.Write(info, 0, info.Length) 
    fs.Close() 

을 시도했지만 내가 파일에있어 텍스트 내 프로그램을 디버깅 어디에서 디렉토리입니다. 이 작업을 수행 할 수있는 아이디어가 있습니까?

Using fbd As New FolderBrowserDialog 
    If fbd.ShowDialog(Me) = DialogResult.OK Then 
    File.WriteAllText(Path.Combine(fbd.SelectedPath, "config.cfg"), My.Resources.config) 
    End If 
End Using 

내가 설정 불렀다 추가 된 파일을, 그리고 내 자원에이 config.txt 파일을 만든 : :) 당신이 당신의 자원에 텍스트 파일을 추가 한 경우

+0

[GetBytes] (https://msdn.microsoft.com/en-us/library/ds4kkd55(v=vs.110).aspx)는 파일에서 바이트를 읽지 않지만 다음과 같이 전달 된 문자열을 사용합니다. 바이트 배열로서 돌려 주어지는 데이터 그리고 File.Create를 호출하여 기존 폴더의 이름을 전달하는 것은 좋은 생각이라고 생각하지 않습니다. – Steve

+0

@ 스티브 그걸 염두에 두겠다. :) – TheWalkingshadow

답변

1

는, 당신은 이런 식으로 뭔가를 시도 할 수 있습니다 도서관.

+0

그런 식으로 작동하지만, 그 동안에는 내가 어떻게 알아 냈어 여기에 새 UTF8Encoding (True) .GetBytes (My.Computer.FileSystem. ReadAllText (Application.StartupPath & "\ .. \ .. \ Resources \ config.cfg")) 어쨌든, @ LarsTech 감사합니다 :) – TheWalkingshadow