Question

我在HTML文件中有一个VBScript函数，如下所示，我试图在我的C：驱动器中打开一个日志文件。

日志文件是每天生成的，我只想打开今天点击按钮时创建的日志文件。文件名的日期标记为：24Jun2014.log，25June2014.log

有人可以建议我如何才能根据日志文件名中的上述日期标记获取最近的文件，并为下面的代码打开它？

打开日志文件的VBScript

<script type="text/Vbscript">
Option Explicit
Dim File
File = "C:\24Jun2014.log"
'***********************************************************

Function LogOpen()
    Dim Ws,iReturn,strError
    Set ws = CreateObject("WScript.Shell")
    On Error Resume Next
    iReturn = Ws.Run(File,1,False)
    If Err.Number <> 0  Then
        strError = "<b><font color=Red>The file "& File &" dosen't exists !</font></b>"
        myDiv.InnerHTML = strError
        Exit Function
    End If
End Function
'***********************************************************
</script>

点击并打开日志文件的HTML：

<div class="tabpage" id="tabpage_1">
  <h2>Application log</h2>
  <center><input type="button" name="Log" id="Start" value="Application LogFile" onclick="LogOpen()">
</div>

日期创建者属性

Function ShowFileInfo(filespec)
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(filespec)
   ShowFileInfo = "Created: " & f.DateCreated
End Function

Answer 1

如果您无法从当前日期派生文件规范 -

>> d = Date()
>> WScript.Echo Day(d) & MonthName(Month(d)) & Year(d)
>> WScript.Echo Day(d) & MonthName(Month(d), True) & Year(d)
>>
25June2014
25Jun2014

你必须遍历文件夹的.Files并检查每个文件的.DateCreated属性。

使用VB脚本打开最近的日志文件

1 个答案: