SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

Copy data log

11/4/2010 10:48 PM	Rate (0)
dipakkadam_619 Posts: 15 Rating: (0)	Hello all, I am fairly new to WinCC Flex. I wish to transfer a data log from one log to another on a trigger automatically. Now when I use the sytem function like copylog or archive log, what it does is only copies the last data entry of one log to another and not the entire log. I also used scripts, but again it wolud do the same thing. I am sure i am doing something wrong coz all it does is copy the last data entry instead of the entire data log in .xls
dipakkadam_619 Posts: 15 Rating: (0)
Suggestion To thank Quote Answer

11/5/2010 8:55 AM	Rate (0)
fbelic Posts: 327 Rating: (28)	Greetings I have a script that makes monthly backup of all logs. I just copy files with log's data. Is that what you want to do? Best regards
fbelic Posts: 327 Rating: (28)
Suggestion To thank Quote Answer

11/5/2010 9:27 AM	Rate (0)
umencho Diamond Member Joined: 3/21/2006 Last visit: 3/30/2025 Posts: 10239 Rating: (1183)	Hello, Could you post here this script. I am also curious. BR, Hristo Mihalev

Suggestion To thank Quote Answer

11/5/2010 10:35 AM	Rate (1)
fbelic Posts: 327 Rating: (28)	Here it is: Dim fs Set fs = CreateObject("Scripting.FileSystemObject") If(fs.FolderExists("d:\Logs") = True) Then If(fs.FolderExists("d:\teo") = False) Then fs.CreateFolder("d:\teo") End If If(fs.FolderExists("d:\teo\ivankovo") = False) Then fs.CreateFolder("d:\teo\ivankovo") End If If(fs.FolderExists("d:\teo\ivankovo\logs_old") = False) Then fs.CreateFolder("d:\teo\ivankovo\logs_old") End If Dim ime ime = "d:\teo\ivankovo\logs_old\" & CStr(VratiDatumVrijemeISO(False)) fs.CreateFolder(ime) fs.CopyFolder "d:\Logs", ime, True End If It copies logs from folder "d:\Logs" to folder "d:\teo\ivankovo\logs_oldYYYYMMDD". FunctionVratiDatumVrijemeISO(False) returns date in ISO format. This works for cases where logs are saved in CVS or TXT format. For RDB files, you have to temporary stop logging and then copy file (or use ArhiveLogFile function) and restart logging. Best regards
fbelic Posts: 327 Rating: (28)
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users umencho

11/5/2010 5:05 PM	Rate (0)
dipakkadam_619 Posts: 15 Rating: (0)	Thanks for the script...but there is an error with the script..I think it is the expression with the CSTR..
dipakkadam_619 Posts: 15 Rating: (0)
Suggestion To thank Quote Answer

11/5/2010 8:16 PM	Rate (0)
fbelic Posts: 327 Rating: (28)	Of course there is an error, because VratiDatumVrijemeISO is my custom function. I use it to create a folder name that can be sorted by name and date. Anyway, use Date(Now) or something like that. I don't have WinCC flex right now, but it think it goes something like: ime = "d:\teo\ivankovo\logs_old\" & CStr(Date(Now)) Best regards
fbelic Posts: 327 Rating: (28)
Suggestion To thank Quote Answer

Share this page:

Share this page on...