主题：如何自动创建txt文本文件

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

http://www.foxtable.com/help/topics/0345.htm

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

一定要存在路径才可以的.  没路径就参考帮助生成一个 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"

你检查一下是否有生成文本, 另外局域网路径好像无法操作.

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

 

 

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

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

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

这两者有什么不同吗？

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

 

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