VB中自动产生TXT文件

[pandengesen]

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

[jxsrleoyan]

设置一个窗体级变量
dim cur as long


在单击事件里
dim f as string
f = cur & ".txt" '生成文件名
open f for output as #1
'所写内容
close

cur = cur + 1 '计数器累加1

[Phenlit]

'定义模块级变量
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

[yidie]

用个公共变量或静态变量保存文件序号就行了

[pandengesen]

能否给我举个例子？我是菜鸟啊。

[loveabug]

写入文件时保存判断下是否存在.存在的话+1 .

具体我也忘了,查查资料,以前写过.

[jxsrleoyan]

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

[Phenlit]

我那个例子要引用Microsoft sctipting runtime啊

引用方法如下

工程-->引用-->找到Microsoft sctipting runtime-->打上勾

然后使用我上面写的代码就可以用了

[pandengesen]

4楼，请问你的文件是生成在什么地方的呢？谢谢。
5楼，错误“用户定义类型未定义”，这是怎么了呢？谢谢。

[一笑拔剑]

5楼需要引用Microsoft sctipting runtime ]
你没有引用

4楼的你可以修改
f = cur & ".txt" '生成文件名

把路径放在cur前面

比如
f ="f:\test\" cur & ".txt" '生成文件名

[pandengesen]

谢谢各位了。