VB文件操作

Private Sub Command1_Click()

    Dim m As Integer    '接受文本框一的数值
    Dim n As Integer  '接受文本框二的数值
    Dim k As Integer  '循环控制次数
   
    m = Val(Text1.Text)
    n = Val(Text2.Text)
   
    For k = m To n
        Open Dir1.Path + "\k.txt" For Output As #k
    Next
   
End Sub

这段代码的本来用意是点击command1按钮的时候 在指定文件夹中创建 文件名为数字m 到n的 n-m个文件（暂不判断n 和m的大小问题）
可是我调试的时候只生成k.txt文件  怎么让for循环里的k真正的起作用

---

如需要阅读该回复，请登录或注册CSDN!