16,554
社区成员
发帖
与我相关
我的任务
分享
Dim aa As System.IO.StreamWriter = New System.IO.StreamWriter("D:\我的信息配置\test.ini", False, System.Text.Encoding.UTF8)
aa.WriteLine("[配置信息]")
aa.WriteLine("zhPath=" + TextBox2.Text.ToString)
aa.WriteLine("yxPath=" + TextBox1.Text.ToString)
aa.WriteLine("spPath=" + TextBox4.Text.ToString)
aa.WriteLine("zmPath=" + TextBox5.Text.ToString)
aa.WriteLine("dkNum=" + NumericUpDown1.Value.ToString)
aa.Close()
aa.Dispose()
'....下面是读取
zhPath = GetINI("配置信息", "zhPath", "", "D:\我的信息配置\test.ini").ToString
spPath = GetINI("配置信息", "yxPath", "", "D:\我的信息配置\test.ini").ToString
spPath = GetINI("配置信息", "spPath", "", "D:\我的信息配置\test.ini").ToString
zmPath = GetINI("配置信息", "zmPath", "", "D:\我的信息配置\test.ini").ToString