Private Sub cmdWriteDoc_Click()
Dim fso As New FileSystemObject
Dim MyFile As TextStream
Dim objFolder As Scripting.Folder

Set objFolder = fso.GetFolder("" & App.Path & "\doc ")
Set MyFile = fso.CreateTextFile("" & App.Path & "\doc\1.txt", True)

Open "" & App.Path & "\doc\1.txt" For Output As #1 '到这里就错了

Print #1, Now
Print #1, Me.cmbP_ID
Print #1, Me.lstRight.Text
Print #1, Me.txtP_BeginTime
Print #1, Me.txtP_EndTime
Print #1, Me.txtP_Task
Close #1
MsgBox "写入磁盘成功！", vbOKOnly + vbInformation, "操作结果"
End Sub

谁能帮我解释一下咋回事？多谢！

要么你都用VB自带输入输出 要么你都用FSO

哪有混用的……

出错信息能否贴出来？

初步估计.你是没有close 掉myfile
同意楼上.
Open语句.当用Output参数的时候.如果不存在这个文件.它会自动创建.不用你操心.
还有
"" & App.Path & "\doc\1.txt"
"" &加这个东西是啥意思?

你在创建文件和打开文件之间加个sleep让它休眠2、3秒看看。。。

[此贴子已经被作者于2007-9-23 10:10:48编辑过]

vb自动创建的文件在 相对路径下 ，我想在多层文件夹下创建文件，所以就用到了FSO

那随你.
用完之后.要close掉.Set xx=nothing

出错信息：
Run-time error '70'
permission denied

多谢，问题解决了！

能帮我解释一下原因吗？

Option Explicit

Private Sub Command1_Click()

Dim fso As New FileSystemObject
Dim MyFile As TextStream
Dim objFolder As Scripting.Folder

Set objFolder = fso.GetFolder(App.Path & "\doc ")
Set MyFile = fso.CreateTextFile(App.Path & "\doc\1.txt", True)
MyFile.Close

Open App.Path & "\doc\1.txt" For Output As #1 '到这里就错了

Print #1, Now
Print #1, "test"
Close #1
MsgBox "写入磁盘成功！", vbOKOnly + vbInformation, "操作结果"

Set MyFile = Nothing
End Sub

没什么原因.
请问你能一边抽烟一边刷牙吗?