Блог

У меня есть функция VBScript в HTML-файле, как показано ниже, где я пытаюсь открыть файл журнала на моем диске 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 "amp; File amp;" 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: " amp; f.DateCreated
End Function
  

Если вы не можете получить спецификацию файла из текущей даты —

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

вам придется перебирать папки.Файлы и проверьте .Свойство DateCreated для каждого файла.