Skip to Content

SiePortal

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

SiePortalDeutsch

Search

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

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

error when deleting files on SD

Created by: Beyer at: 10/21/2020 3:43 PM (4 Replies)

Rating (1)

Thanks 1

5 Entries

10/21/2020 3:43 PM	Rate (0)
Beyer Regular Member Joined: 1/4/2018 Last visit: 12/15/2023 Posts: 18 Rating: (0)	Hello guys, I am using TIA portal V15.1 with an TP700 comfort I am trying to delete files. In my case: I want to keep a maximum of 7 files, and delete the oldest files if i have more then 7 files. I get an error on the HMI refferring to the fo.kill line in the script (see attachment). Does anyone know what to do? my code: Sub DeleteOldestFiles() Dim objFSO, objFolder, objFile, colFiles, OldestFile Dim FileName, FolderPath, FileLocation, FilesCount Dim fo Set objFSO = CreateObject("FileCtl.FileSystem") FolderPath = "\Storage Card SD\Logs\Archives\" Set fo = CreateObject("FileCtl.FileSystem") FileName = objFSO.Dir(FolderPath & "*.csv") OldestFile = FileName FilesCount = 0 While FileName <> "" If objFSO.FileDateTime(FolderPath & FileName) < objFSO.FileDateTime( FolderPath & OldestFile) Then OldestFile = FileName End If FilesCount = FilesCount + 1 FileName = objFSO.dir() Wend If FilesCount > 7 Then fo.kill (FolderPath & OldestFile) Oldest = OldestFile End If NmbrFiles = FilesCount End Sub Attachment IMG_20201021_153351.jpg (195 Downloads)

Suggestion To thank Quote Answer

10/21/2020 5:09 PM	Rate (0)
Beyer Regular Member Joined: 1/4/2018 Last visit: 12/15/2023 Posts: 18 Rating: (0)	I figured out that it has to do with the "read only" status of the .csv file. I create the csv file (on the sd card) with the function ArchiveLogFile. Does anyone know why it is created as "read only". Or how i can disable the "read only" status of the file using scripting?

Suggestion To thank Quote Answer

10/22/2020 3:33 PM	Rate (1)
K_Ohjus Gold Expert Joined: 3/5/2017 Last visit: 4/15/2025 Posts: 780 Rating: (130)	Hi, You can use fso.FileCopy PathName, NewPathName to copy file. Or fso.SetAttr PathName, 0 to set the file read/write. Beyer I figured out that it has to do with the "read only" status of the .csv file. I create the csv file (on the sd card) with the function ArchiveLogFile. Does anyone know why it is created as "read only". Or how i can disable the "read only" status of the file using scripting?
	- Trying is the first step towards failure. - Singing while you work is not happiness, it's mental illness. - Kaikki on paskaa, paitsi kusi.
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users Beyer

10/22/2020 4:07 PM	Rate (0)
Beyer Regular Member Joined: 1/4/2018 Last visit: 12/15/2023 Posts: 18 Rating: (0)	Thank you, I changed de AchiveLogFile for fso.filecopy and it worked out!

Suggestion To thank Quote Answer

9/25/2024 1:08 PM	Rate (0)
AVS_1201 Advanced Member Joined: 6/1/2018 Last visit: 4/6/2025 Posts: 11 Rating: (1)	Hey Can you provide the final Script, I'm also having the same issue but couldn't figure it out where to change.

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

TIA WinCC Adv System functions/Scripting

Follow us on