那位能幫我看看下列語言儲存本機是否有問題？

Worksheets("sheet1").Range("i2").Value = Now()
Data2 = Worksheets("sheet1").Range("i2").Value
                                                                                
d = Format(Day(data), "00")
m = Format(Month(data), "000")
y = Format(Year(data), "000000")
                                                                                                                                                            
Filename = "c:\C:\vit71023.52\vit71023.52.dat" & y & m & d & ".txt"

Open "C:\MIT68013.50\MIT68013_51.dat" For Append As nfn1
 Open Filename For Append As nfn1 --------------------编程问答-------------------- Filename = "c:\C:\vit71023.52\vit71023.52.dat" & y & m & d & ".txt"
一看这个就不对。 --------------------编程问答-------------------- Filename = "C:\vit71023.52\vit71023.52.dat" & format(Now,"YYYYMMDD") & ".txt"

--------------------编程问答-------------------- 很大问题，自己看：
Filename = "c:\C:\vit71023.52\vit71023.52.dat" & y & m & d & ".txt"

为什么有“c:\c:\”的两个盘符，一定出错，显示的错误应该是“找不到路径”
还有：
Open "C:\MIT68013.50\MIT68013_51.dat" For Append As nfn1

nfn1是什么东西啊，你又没说清楚，这个位置是文件编号，是要“#”加一个数字，例如：“#1”之类的，这里显示的错误应该是“错误的文件名或号码”。快改过来吧。 --------------------编程问答-------------------- 萬分感謝！

补充：VB ,  基础类