filesystemobject对象不是vb内置对象，使用前必须首先选择[工程]→[引用]，在出现的窗口中选择“microsoft scripting runtime”，然后利用filesystemobject的fileexists方法来判断文件是否存在.

Private Sub Form_Load()
Dim Fso As New FileSystemObject
If Fso.FileExists("C:\1.txt") Then '文件路径
MsgBox "文件存在"
Dim FsoText As TextStream
Set FsoText = Fso.OpenTextFile("C:\1.txt", ForWriting, True)
FsoText.WriteLine "写入内容"
Else
MsgBox "文件不存在"
End If
End Sub

那我想在D盘生成一个1.exe

并且把Label1上面的内容输入到1.exe里，这个怎么弄？

那我想在D盘生成一个1.exe

并且把Label1上面的内容输入到1.exe里，这个怎么弄？

Open "d:\1.txt" For Output As #1

print #1, label1.caption
Close #1

满足全部要求

Private Sub Command1_Click()
Open Text1 & "\1.exe" For Output As #1
Print #1, Label1.Caption
Close #1
End Sub

全部代码如下 希望满意：

Private Sub Command1_Click()
Open Text1 & "\1.exe" For Output As #1
Print #1, Label1.Caption
Close #1
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Text1 = File1.Path + "\"
End Sub
Private Sub Form_Load()
Command1.Caption = "将1.txt生成在此目录下"
Text1 = "d:\"
End Sub

怎么可以设置成可以自己选择生成路径？

先要在工程-部件里选microsoft common dialog control 6.0对话框

拖出来

对话框名.filter="文本文件(*.txt)|*.txt"

对话框名.showopen

open 对话框名.filename for append as #1

print #1,"写入内容"

close #1