win2000 资源管理器问题～～

Question

看看下面这个有什么错？？Private Sub Command1_Click()
Dim i As Longi=1
Do While i > 0
   Dim f As Long
   f = FreeFile   ''''''下面这句老是说 路径未找到，是不是这样open建不了文件啊？
   Open "f:\tst\tst" & Trim(Str(i)) & ".dat" For Output As #f   Print #f, "OK"
   Close #f
   Text1.Text = Str(i)
   i = i + 1
   DoEvents
   
LoopEnd SubPrivate Sub Command2_Click()
i = 0
End
End Sub

Answer 1

请先确认路径是否真的存在，因为Open 是不会建立目录的。

Answer 2

是吗？ msdn 里记载是可以的

Answer 3

open后面要带个true的参数，才会在没有目录的时候创建目录。

Answer 4

还是 lonelystarcn(虫虫)  说对了。我现在测到 14万多一点，机器速度变慢，不过还没有什么异常。有兴趣大家一起来测一下好吗？这个帖子我加分到100 ，有结论的都有分， ok ？

Answer 5

不好意思～～上面 xiaoxinghappy(小星) 也对了，都有分～