如何自动创建txt文本文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何自动创建txt文本文件

共有2796人关注过本帖树形打印复制链接主题：如何自动创建txt文本文件

wwwzhucom

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：91 积分：844 威望：0 精华：0 注册：2013/6/1 14:59:00

如何自动创建txt文本文件 发帖心情

Post By：2014/9/18 15:23:00 [显示全部帖子]

如题，怎样自动创建txt文本文件?

wwwzhucom

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：91 积分：844 威望：0 精华：0 注册：2013/6/1 14:59:00

Post By：2014/9/18 15:31:00 [显示全部帖子]

以下是引用Bin在2014-9-18 15:24:00的发言：
http://www.foxtable.com/help/topics/0345.htm

写空字符串即可

根据条件删除文本文件后，要自动创建一个文本文件，且文件名是根据时间自动命名的，你说的应该是向指定的文本文件写空字符串，我以前就是按这种方法写字符串的，后来老是提示指定的文件路径不存在，就包括那个文本文件

wwwzhucom

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：91 积分：844 威望：0 精华：0 注册：2013/6/1 14:59:00

Post By：2014/9/18 15:36:00 [显示全部帖子]

以下是引用Bin在2014-9-18 15:33:00的发言：
一定要存在路径才可以的. 没路径就参考帮助生成一个 http://www.foxtable.com/help/topics/0332.htm

If strData.trim.length>0 Then
                Dim strTime As String=Format(Date.Now,"yyyyMMddHHmmssfff")
                Dim FileName As String=strTime & ".txt"
                FileSys.WriteAllText( ProjectPath & "Attachments\TxtFile\" & FileName,strData,True)
                If Filesys.FileExists( ProjectPath & "Attachments\TxtFile\" & FileName) Then
                    FileSys.MoveFile( ProjectPath & "Attachments\TxtFile\" & FileName,"\\192.168.1.230\TxtFile\" & FileName)
                End If
    End If

上面就是这段代码，报错提示找不到文件路径,如:ProjectPath & "Attachments\TxtFile\20140918152030234.txt"