有个程序每次可以自动以当前日期生成为文件名的文本文件，我现在想做个程序调用它，我如果写：Open App.Path & "\20060505.txt" For Input As #1 没问题；然而这样就写死了，一定得是20060505.txt，要是明天就会是20060506.txt，所以我就用函数flename=format(now,"yyyymmdd")&".txt"，用print方法就显示为20060505.txt,但是我用Open App.Path & flename For Input As #1就报错，为什么？ 烦哪位达人解答

不要重复发贴好吗???

Option Explicit

Private Sub Command1_Click()
Dim strFileName As String
Dim FileNum As Integer
Dim strInput As String
strFileName = Format$(Date, "YYYYMMDD")
'Print strFileName
FileNum = FreeFile()
Open App.Path & "\" & strFileName & ".txt" For Output As #FileNum
Print #FileNum, "梁嘉辉编写"
Close #FileNum
FileNum = FreeFile()
Open App.Path & "\" & strFileName & ".txt" For Input As #FileNum
Input #FileNum, strInput
Close #FileNum
Print strInput
End Sub

谢谢坛主！刚才我不知我发了一个（因为我没看见）下次一定注意，谢谢！请你吃