VB中自动产生TXT文件

Question

如何在VB中自动产生TXT文件：要求是不能重名的。单击一下产生一个，单击下产生一个......谢谢。
如1.txt
  2.txt
  3.txt
  ......

Answer 1

设置一个窗体级变量
  dim cur as long
在单击事件里
  dim f as string
  f = cur & ".txt"    '生成文件名
  open f for output as #1
     '所写内容
  close  cur = cur + 1       '计数器累加1
  

Answer 2

'定义模块级变量
Dim fso As New FileSystemObject '引用Microsoft sctipting runtime
Dim fNum As Integer '定义文件数
Dim Path As String   '文件所在路径'点击事件
Private Sub Command1_Click()
  fNum = fNum + 1
  fl = Path & fNum & ".txt" '得出路径文件名
  Open fl For Output As #1 '生成文件 
  Close
  
End Sub'加载窗体事件
Private Sub Form_Load()
  Path = "f:\" '初始化路径
  fNum = fso.GetFolder(Path).Files.Count '文件夹现有文件数量
  
End Sub

Answer 3

5楼需要引用Microsoft sctipting runtime ]
你没有引用4楼的你可以修改
 f = cur & ".txt"     '生成文件名把路径放在cur前面比如
 f ="f:\test\" cur & ".txt"     '生成文件名

Answer 4

默认目录，如你的工程没有保存时为：VB6.exe所在的目录，即VB安装目录，如果你的工程保存时，所在的目录就是你保存工程时的目录

Answer 5

我那个例子要引用Microsoft sctipting runtime啊引用方法如下工程-->引用-->找到Microsoft sctipting runtime-->打上勾然后使用我上面写的代码就可以用了