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只能写入固定文件名吗,本人对文件操作没经验
请大家帮助，谢谢

我测试了一下：

Dim i As Integer
Private Sub Command1_Click()
    i = i + 1
    Text1.Text = i
    Call WritePrivateProfileString("Information", "TestWord", "HelloWorld", "c:\" & i & ".ini")
End Sub

上面代码没问题啊。

什么问题？
最后那个"干嘛用的?少了一边在那里？