12/17/2019 2:16 PM | |
Joined: 8/10/2017 Last visit: 2/28/2024 Posts: 3 Rating: (0) |
Hi all, sorry for offtop but I have quite similar theme. I'm trying to create log file via VB script in WinCC 6.0 SP2. I want to add time stamp to .csv file name with my logs. My code: Sub OnClick(Byval Item) Dim tagName, tagValue, tagFilename Dim strFilename, strLine Dim arrTags(7), i Dim fso, objFile, objTag Dim DateValue Dim TimeValue Dim TimeStamp DateValue = Date TimeValue = Time arrTags(0) = DateValue arrTags(1) = TimeValue arrTags(2) = "Tag1" arrTags(3) = "Tag2T" arrTags(4) = "Tag3" arrTags(5) = "Tag4" arrTags(6) = "Tag5" arrTags(7) = "Tag6" TimeStamp = localDateFormat(Now) strFilename = "D:/RUNNINGLOG_" & Timestamp & ".scv" Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FileExists(strFilename) Then fso.CreateTextFile(strFilename) Else MsgBox "File already exist:" & vbCrLf & strFilename Exit Sub End If 'for control HMIRuntime.Trace("VB-Script: Write file: " & strFilename & vbCrLf) For i=0 To 7 Set objTag = HMIRuntime.Tags(arrTags(i)) strLine = arrTags(i) & ";" & objTag.read objFile.WriteLine strLine 'for control HMIRuntime.Trace(strLine & vbCrLf) Next objFile.Close End Sub It works perfect when I type strFilename = "D:/RUNNINGLOG".scv" But with "D:/RUNNINGLOG_" & Timestamp & ".scv" I don't get anything. Could anyone advise what is the problem????? ------------------------------------------------------------------------------------------ |
Last edited by: AutoGen_3959326 at: 12/17/2019 14:22:52Last edited by: Jen_Moderator at: 12/18/2019 09:09:00New subject after splitting |
|
Follow us on