Hello 

I am making an application to archive a log file on a wincc panel. What I came up with was the following

Log File A

These are the actions I take when I want to make a copy of my log file;

H_DeleteOldLog -> StopLogging(Data log, Overload_Log)-> CloseAllLogs -> ArchiveLogFile(Data log, Overload_Log, \Storage Card USB\Temp\, Copy) -> ClearLog(Data log, Overload_Log) -> StartLogging(Data log, Overload_Log) -> I_RenameNewLog

G_OverlLogFileName, H_DeleteOldLog, I_RenameNewLog and X_GetError are script I have written

G_OverlLogFileName

Dim file_Path

file_Path = "\Storage Card USB\Overload_Log\Part" & Index & ".csv"
G_OverlLogFileName = file_Path

 H_DeleteOldLog

Dim fso, file_Path

SmartTags("GlobalVars.iOverloadCopyControl") = 0
On Error Resume Next

Set fso = CreateObject("filectl.filesystem")
X_GetError

file_Path = G_OverlLogFileName( SmartTags("GlobalVars.iOverloadCopyIndex") fso.SetAttr(file_Path), 0
If Err.Number = 0 Then

fso.Kill(file_Path)
X_GetError

Else

Err.Clear

End If

 I_RenameNewLog 

Dim fso, file_Path, file_Name, index

On Error Resume Next

Set fso = CreateObject("filectl.filesystem")
X_GetError

file_Path = "\Storage Card USB\Temp\*" 
Do

file_Name = fso.Dir(file_Path)

Loop Until (Err.Number = 0)

file_Path = "\Storage Card USB\Temp\" & 
index = SmartTags("GlobalVars.iOverloadCopyIndex")
file_Name = G_OverlLogFileName(index)

fso.SetAttr(file_Path), 0
X_GetError

fso.MoveFile file_Path, file_Name
X_GetError

fso.Kill(file_Path)
X_GetError

If Err.Number <> 0 Then

ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub

End If

So what I wanna do is first delete the file I want to create, then archive the log and copy it into a temp map. Then I want to copy this file into a folder and name of my choosing and delete the temp file.

What I notice now is that  sometimes the log file doesnt get created or the Temp map get copied and renamed after my name I want to name the log file in. And sometimes it copies just fine. 

Maybe this is all just a little complicated I have worked things out but I am not really known with VBA and just came up with this. If there is a more simpler solution then this I would gladly hear it!

Hello,

although not understanding your script exactly, I would recommend following considerations:

1. Which panel do you use? A PC or a Win-CE-based panel? -> there is a different file-system-object !

2. Are you writing to a SD-memory card?

3. Are you sure that a copy-procedure has been performed fully before you want write to a new file?

4. I'm a little bit confused with the naming procedure of the copy-sequence. Maybe you are performing a wrong file-naming?

5. Please find VB-commands here: https://msdn.microsoft.com/en-us/library/microsoft.visualbasic.filesystem_methods(v=vs.110).aspx

A nice tutorial you will find here: http://www.computerperformance.co.uk/vbscript/vbscript_file_create.htm

Regards

Georg

Hello Georg,

Thanks for your reply!

1. I am using a CE based panel and I am aware that the file system is correct. As far as I know I am using the correct file system. This is what i use.

2. I am writing to a USB stick of 8GB

3. No i do not, but is there a way to check if it has? Otherwise Ill just have to build in some timer to rename the file. I can try that.

4. The archived file creates a name with a date-timestamp in the map /Storage Card USB/Temp/. I want to copy this file to the map /Storage Card USB/Overload_Log/  with the name Partx.csv where x is an index I make in the PLC. Then I want to remove the file in the /Storage Card USB/Temp map.

5. Thanks for the VB commands and tutorial. But as for my answer to your first question Im limited in my functionality. 

Also I think my post is in the wrong forum area, should be under Simatic WinCC flexible.