如何用VB写这样的EXE

要求双击生成的EXE后在指定的盘符下创建一个文本文件
这个很简单才对啊~
可是做了几个都不行啊
求教高手了
谢谢mayorvb - 经理 五级 啊~
如果要连续使用这个程序呢？创建的文件名为1，2，3，4.。。。的排列要怎么做啊？

这个要麻烦些!!
你可以先判断有多少个文件!
然后在后面加一就行

例如把mayorvb的改成以下

Private Sub Form_Load()
Dim i As Integer
Dim Path As String

Path = "C:\1\"
i = ListCount(Path)

Open Path & i & ".txt" For Output As #1
Print #1, "大家好"
Close #1

End '关闭程序
End Sub

Private Function ListCount(ByVal Folder As String)
Dim sFile As String
Dim iDirNum As Integer

iDirNum = 0
sFile = Dir(Folder & "*.*", vbNormal + vbArchive + vbHidden)
Do While Len(sFile) > 0
sFile = UCase$(Trim$(sFile))
iDirNum = iDirNum + 1
sFile = Dir '下一个文件
Loop
ListCount = iDirNum
End Function

Private Sub Form_Load()
Open "C:\aaassss.txt" For Output As #1
Print #1, "大家好"
Close #1