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 '恢复初始值。

这是本人写的一个小程序自己分析一下吧 祝你成功
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 '恢复初始值
Label1.LinkMode = 0

End Sub

假定按钮名为Command1，如下代码实现。
Private Sub Command1_Click()
Open App.Path & "go.txt" For Output As #1
Print #1, "这是用VB创建的文件。"
Close #1
End Sub