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

The system cannot find the path

Created by: szymon_wrobel172 at: 6/6/2024 7:34 AM (3 Replies)

Rating (0)

Thanks 1

4 Entries

6/6/2024 7:34 AM	Rate (0)
szymon_wrobel172 Joined: 5/23/2024 Last visit: 8/20/2024 Posts: 4 Rating: (0)	Hello, I have some problems with my script to save data from DB to CSV file. This Script work at Mobile Panel 277 8" but does not work at KTP900 Mobile. I past the code below: Sub Zapis_DB_to_CSV() Dim i, j, k Dim fo, f, ts Dim path Dim mode Dim delimiter Const NEU=0 delimiter = ";" mode = 8 k = 0 path = "\Storage Card USB\datafile.csv" On Error Resume Next 'Stworzenie obiektu w pliku Set fo = CreateObject("FileCtl.File") 'Sprawdzenie czy jest jakiś błąd If Err.Number <> 0 Then ShowSystemAlarm "Error 1 # " & CStr(Err.Number)& " "& Err.Description Err.Clear Exit Sub End If 'Otwarcie / stworzenie pliku fo.open path, mode 'Sprawdzenie czy nie ma błędu If Err.Number <> 0 Then ShowSystemAlarm "Error 2 # " & CStr(Err.Number)& " "& Err.Description Err.Clear Exit Sub End If SetBit("Zapis_CSV_1") 'Nagłówek jeśli plik nie istnieje If fo.LOF = NEU Then fo.LinePrint("Numer seryjny" & delimiter & "Siła" & delimiter & "Droga" & delimiter & "Czas" & delimiter) End If For i = 0 To 24 fo.LinePrint(SmartTags("SN")(i)) For j = 0 To 49 fo.LinePrint(delimiter & SmartTags("sila1_25")(j+k) & delimiter & SmartTags("droga1_25")(j+k) & delimiter & SmartTags("czas1_25")(j+k) & delimiter) Next k = k + 50 Next k = 0 For i = 25 To 49 fo.LinePrint(SmartTags("SN")(i)) For j = 0 To 49 fo.LinePrint(delimiter & SmartTags("sila26_50")(j+k) & delimiter & SmartTags("droga26_50")(j+k) & delimiter & SmartTags("czas26_50")(j+k) & delimiter) Next k = k + 50 Next 'Zamknięcie pliku fo.Close Set fo = Nothing ResetBit("Zapis_CSV_1") SetBit("Zapis_CSV") ShowSystemAlarm "Storage of data was successful!" End Sub The panel give me error: Error 2# The system cannot find the path specified.... So there is a problem with open this file. Can someone help me? What is the difference between these two panels? If this KTP900 Mobile cant save CSV file on USB?

Suggestion To thank Quote Answer

6/6/2024 12:53 PM	Rate (0)
Transponder Snail Member Joined: 6/27/2017 Last visit: 6/26/2024 Posts: 158 Rating: (21)	Hi szymon, please post more details: What do we need to solve your problem?

Suggestion To thank Quote Answer

6/6/2024 2:05 PM	Rate (0)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 11/13/2024 Posts: 3120 Rating: (516)	Hello szymon, when going to Historical data of the KTP900 Mobile (I guess you are using TIA portal) and creating a log, i can select the following path for USB "\USB_X61\". So I guess you have to update the path in your script: path = "\USB_X61\datafile.csv" Regards, Frink
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users szymon_wrobel172

6/7/2024 4:55 AM	Rate (0)
szymon_wrobel172 Joined: 5/23/2024 Last visit: 8/20/2024 Posts: 4 Rating: (0)	Hello Prof.Frink you help me so much. That was the problem. Now the path is correct and everything works. Thank you.

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on