以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么按日期区分每一天的操作日志？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130636)
--  作者：YOU
--  发布时间：2019/1/28 9:30:00
--  [求助]怎么按日期区分每一天的操作日志？
红色部分怎么按日期区分每一天的操作日志？
Dim v  = Args(0)
Dim msg As String
If Typeof v Is Exception Then \'如果是Exception的异常类型,则递归获取所有的异常堆栈
    Do While v IsNot Nothing
        msg &= v.Message &  vbcrlf & v.StackTrace & vbcrlf
        v = v.InnerException
    Loop
Else \'其它情况只能传入错误的文本内容
    msg = v
End If
Output.Logs("AppLogging").Add(Format( Date.Now,"yyyy-MM-dd HH:mm:ss.ffff") & vbCrLf & msg)
Output.Logs("AppLogging").Save(ProjectPath & "Mmsglog.txt",True) \'日志位于当前项目目录里
Output.Logs("AppLogging").Clear
--  作者：有点甜
--  发布时间：2019/1/28 9:41:00
--  

这个意思？

 

Output.Logs("AppLogging").Save(ProjectPath & "Mmsglog" & Format(Date.Now,"yyyy-MM-dd") & ".txt",True) \'日志位于当前项目目录里
--  作者：YOU
--  发布时间：2019/1/28 9:54:00
--  
能不能专门放在一个文件夹里面？
--  作者：有点甜
--  发布时间：2019/1/28 9:55:00
--  

这个意思？

 

Output.Logs("AppLogging").Save(ProjectPath & Format(Date.Now,"yyyy-MM-dd") & "/Mmsglog.txt",True) \'日志位于当前项目目录里
--  作者：YOU
--  发布时间：2019/1/28 9:59:00
--  
.NET Framework 版本：2.0.50727.8937
Foxtable 版本：2017.12.18.1
错误所在事件：自定义函数LogText
详细错误信息：
调用的目标发生了异常。
未能找到路径“C:\\Users\\15495\\Desktop\\Education\\2019-01-28\\Mmsglog.txt”的一部分。
--  作者：YOU
--  发布时间：2019/1/28 10:02:00
--  
好了，谢谢
--  作者：有点甜
--  发布时间：2019/1/28 10:04:00
--  

改成这样

 

If FileSys.DirectoryExists(ProjectPath & Format(Date.Now,"yyyy-MM-dd")) = False Then
    FileSys.CreateDirectory(ProjectPath & Format(Date.Now,"yyyy-MM-dd"))
End If

Output.Logs("AppLogging").Save(ProjectPath & Format(Date.Now,"yyyy-MM-dd") & "/Mmsglog.txt",True) \'日志位于当前项目目录里