VB 菜单 ——文件——新建TXT文件

‘你的子程序

sub CreateAfile()

''''

Path = "f:\1\ FileName.txt" '这里已经固定每次创建文件名了

''''

End Sub

‘建议改成

sub CreateAfile(fname as string)

''''

Path = "f:\1\ " &fname &".txt"

''''

End Sub

'用法

CreateAfile FileName

VB使用open函数新建文件。

示例：

open

"C:\123.txt"

for

output

as

#1

'新建文件C:\123.txt到

#1文件句柄

print

#1,

"新建文件"

'写入内容

Close

#1

'关闭文件句柄

---