以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何自动创建txt文本文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57116)
--  作者：wwwzhucom
--  发布时间：2014/9/18 15:23:00
--  如何自动创建txt文本文件
如题，怎样自动创建txt文本文件?
--  作者：Bin
--  发布时间：2014/9/18 15:24:00
--  
http://www.foxtable.com/help/topics/0345.htm

写空字符串即可
--  作者：wwwzhucom
--  发布时间：2014/9/18 15:31:00
--  
以下是引用Bin在2014-9-18 15:24:00的发言：
http://www.foxtable.com/help/topics/0345.htm

 
写空字符串即可

根据条件删除文本文件后，要自动创建一个文本文件，且文件名是根据时间自动命名的，你说的应该是向指定的文本文件写空字符串，我以前就是按这种方法写字符串的，后来老是提示指定的文件路径不存在，就包括那个文本文件
--  作者：Bin
--  发布时间：2014/9/18 15:33:00
--  
一定要存在路径才可以的.  没路径就参考帮助生成一个 http://www.foxtable.com/help/topics/0332.htm
--  作者：wwwzhucom
--  发布时间：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"

--  作者：Bin
--  发布时间：2014/9/18 15:38:00
--  
你检查一下是否有生成文本, 另外局域网路径好像无法操作.
--  作者：wwwzhucom
--  发布时间：2014/9/18 15:42:00
--  
以下是引用Bin在2014-9-18 15:38:00的发言：
你检查一下是否有生成文本, 另外局域网路径好像无法操作.

把那个IP改成那个计算机名可以吗，这样就是网络共享中的网络路径，再者我问的就是如何创建文本？
--  作者：有点甜
--  发布时间：2014/9/18 15:43:00
--  
以下是引用wwwzhucom在2014-9-18 15:42:00的发言：

把那个IP改成那个计算机名可以吗，这样就是网络共享中的网络路径，再者我问的就是如何创建文本？

 

 

FileSys.WriteAllText("d:\\test.txt", "", False, Encoding.Default)
--  作者：wwwzhucom
--  发布时间：2014/9/18 15:46:00
--  
以下是引用有点甜在2014-9-18 15:43:00的发言：

 

 

FileSys.WriteAllText("d:\\test.txt", "", False, Encoding.Default)

FileSys.WriteAllText( ProjectPath & "Attachments\\TxtFile\\" & FileName,strData,True)

FileSys.WriteAllText("d:\\test.txt", "", False, Encoding.Default)

这两者有什么不同吗？
--  作者：有点甜
--  发布时间：2014/9/18 15:50:00
--  

 生成前，如果没有路径，先得创建

 

Dim path As String = ProjectPath & "Attachments\\TxtFile\\"
If FileSys.DirectoryExists(path) = false Then
    FileSys.CreateDirectory(path)
    FileSys.WriteAllText(path & FileName,strData,True)
End If

[此贴子已经被作者于2014-9-18 15:50:15编辑过]