|
#2
seafish0112013-12-17 02:10
我测试了一下：
 程序代码：Dim i As Integer Private Sub Command1_Click() i = i + 1 Text1.Text = i Call WritePrivateProfileString("Information", "TestWord", "HelloWorld", "c:\" & i & ".ini") End Sub 上面代码没问题啊。 |
B = WritePrivateProfileString("bC1", "C1_0", CSTR(bC1(0),App.Path & "\DATA3.txt")
bC1(0)为数组，这个执行都没问题。
但我想利用CommonDialog控件可以自己定义文件名来代替上面的DATA3,但是都失败了,如：
With CommonDialog1
.FileName = "Tempretrue" & " " & CStr(Format(Date, "yy_mm_dd"))
......
.showsave
B = WritePrivateProfileString("bC1", "C1_0", CSTR(bC1(0),App.Path &CommonDialog1.filename")
难道WritePrivateProfileString只能写入固定文件名吗,本人对文件操作没经验
请大家帮助，谢谢
