VB.NETテキストボックスからデータを保存

Question

TextBoxからテキストをテキストに保存する際に問題があります。

コード>

If Not File.Exists(My.Application.Info.DirectoryPath() + "\httpd\conf\httpd.conf") Then 
    Using sw As StreamWriter = New StreamWriter(My.Application.Info.DirectoryPath() + "\httpd\conf\httpd.conf", False) 
     sw.Write(httpdconf.Text & My.Application.Info.DirectoryPath() & "\httpd" & httpdconf2.Text & My.Application.Info.DirectoryPath() & "\www" & httpdconf3.Text & My.Application.Info.DirectoryPath() & "\www" & httpdconf4.Text & My.Application.Info.DirectoryPath & "\cgi-bin" + httpdconf5.Text & My.Application.Info.DirectoryPath & "\cgi-bin" & httpdconf6.Text) 
    End Using 

End If 

問題は、テキスト、プログラムがテキストが空であると考えてhttpdconf.Textライン（場合でもない）なしで保存されていることです。 > resources.GetString（ "httpdconf.Text"）< - -

は私が何をテキストで理解していないとしても、設計者は、妙に

例>

 ' 
     'httpdconf 
     ' 
     Me.httpdconf.Location = New System.Drawing.Point(10, 68) 
     Me.httpdconf.Name = "httpdconf" 
     Me.httpdconf.Size = New System.Drawing.Size(77, 102) 
     Me.httpdconf.TabIndex = 15 
     Me.httpdconf.Text = resources.GetString("httpdconf.Text") 

テキストの代わりになります取る。
（テキストは事前に指定されている） - （テキストは、ユーザーが言っていません）

Answer 1

FIXED 私は、ファイルに保存したいコードを入れて、プログラムがそのファイルから取得されます。あなたはデザイナーのファイルを自分で編集したような理由は>あなたは打ち上げ後

コード>

  Dim apache_1 
      Dim apache_2 
      Dim apache_3 
      Dim apache_4 
      Dim apache_5 
      Dim apache_6 
      Using sr1 As StreamReader = New StreamReader(My.Application.Info.DirectoryPath() + "\default_conf\apache_1") 
       apache_1 = sr1.ReadToEnd 
      End Using 
      Using sr2 As StreamReader = New StreamReader(My.Application.Info.DirectoryPath() + "\default_conf\apache_2") 
       apache_2 = sr2.ReadToEnd 
      End Using 
      Using sr3 As StreamReader = New StreamReader(My.Application.Info.DirectoryPath() + "\default_conf\apache_3") 
       apache_3 = sr3.ReadToEnd 
      End Using 
      Using sr4 As StreamReader = New StreamReader(My.Application.Info.DirectoryPath() + "\default_conf\apache_4") 
       apache_4 = sr4.ReadToEnd 
      End Using 
      Using sr5 As StreamReader = New StreamReader(My.Application.Info.DirectoryPath() + "\default_conf\apache_5") 
       apache_5 = sr5.ReadToEnd 
      End Using 
      Using sr6 As StreamReader = New StreamReader(My.Application.Info.DirectoryPath() + "\default_conf\apache_6") 
       apache_6 = sr6.ReadToEnd 
      End Using 



      Using sw As StreamWriter = New StreamWriter(My.Application.Info.DirectoryPath() + "\httpd\conf\httpd.conf", False) 
       sw.Write(apache_1 & My.Application.Info.DirectoryPath() & "\httpd" & apache_2 & My.Application.Info.DirectoryPath() & "\www" & apache_3 & My.Application.Info.DirectoryPath() & "\www" & apache_4 & My.Application.Info.DirectoryPath & "\cgi-bin" + apache_5 & My.Application.Info.DirectoryPath & "\cgi-bin" & apache_6) 
      End Using