vb中如何创建文件

这是本人写的一个小程序自己分析一下吧 祝你成功

Private Sub Form_Load()

Label1.Visible = False

Label1.LinkTopic = "Progman|Progman"

Label1.LinkMode = 2

Label1.LinkTimeout = 100

'在「开始」-程序下建立“我的游戏”目录

Label1.LinkExecute "[CreateGroup(我的游戏)]"

'在“我的游戏”目录中建立“天马行空”的快捷方式

Label1.LinkExecute "[AddItem(c:\天马行空.exe)]"

'在启动菜单中建立“天马行空”的快捷方式

Label1.LinkExecute "[ShowGroup(启动，4)]"

Label1.LinkExecute "[AddItem(c:\天马行空.exe)]"

'在桌面上建立“天马行空”的快捷方式

FileCopy Environ("userprofile") &"\「开始」菜单\程序\启动\天马行空.lnk"， Environ("userprofile") &"\桌面\天马行空.lnk"

'将启动目录中的快捷方式移动到桌面（执行此 *** 作时必须保证桌面无天马行空.lnk这个文件才可以）

'Name Environ("userprofile") &"\「开始」菜单\程序\启动\天马行空.lnk" As Environ("userprofile") &"\桌面\天马行空.lnk"

Label1.LinkTimeout = 50 '恢复初始值。

VB中有几个命令：

MKDIR

新建文件夹

DIR（）

查找指定的文件/文件夹是否存在

新建TXT文件用OPEN语句

TXT文件名用时间为文件名可以这样做

fname=timer$

&

".txt"

open

fname

for

output

as

#1

用内容为文件名可以这样做

fname=trim(text1.text)

open

fname

for

output

as

#1

---