Sub MakeFile(strFile As String)
On Error GoTo err_section
'Dim fs As Object
'Dim a
Dim strPath As String

strPath = CurrentProject.Path
If Dir(strPath & "\Temp") = "" Then MakeSureDirectoryPathExists (strPath & "\Temp\")
'文件名及路径
strPath = strPath & "\Temp\Temp.txt"
'如文件已存在则删除
If Dir(strPath) <> "" Then Kill strPath

'Set fs = CreateObject("Scripting.FileSystemObject")
'Set a = fs.CreateTextFile(strPath, True)
'a.WriteLine (strFile)
'a.Close

Open strPath For Output As 1
Print #1, strFile
Close #1

exit_section:
Exit Sub

err_section:
MsgBox "Error in cmdBuild_Click - " & Err & " - " & Err.Description
Resume exit_section
End Sub

(责任编辑：admin)

• ·Access 获取office的安装路径【函数】
• ·导入导出Excel(.Xlsx)或(.Xls)数据到SQ
• ·浅析Access与Office其他成员之间交流数
• ·Access2003设置压缩和修复数据库的方法
• ·Access2003设置启动窗体与恢复原始设置
• ·妙用Office合并列数据 快速完成报表
• ·对 Microsoft Office 命令栏进行更多编
• ·SQL Server日期计算
• ·SQL语法参考
• ·XLS与MDB文件格式互换全攻略
• ·在Access中调用Excel无法彻底关闭
• ·Access导出到Excel提速之法
• ·Access朗读任意文本/使Access真人发声
• ·解决ACCESS XP 粘贴数字到EXCEL XP会变
• ·用VBA代码下载网络上的文件
• ·把子窗体的内容复制到EXCEL（子窗体可