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

Copying files to PC from TP700 with VB

Created by: OldSchool at: 3/14/2019 11:38 PM (2 Replies)

Rating (0)

Thanks 0

3 Entries

3/14/2019 11:38 PM	Rate (0)
OldSchool Posts: 18 Rating: (0)	I am trying to create a VB Script to copy a file from the SD card of a TP700 to a shared folder on a PC I keep getting an error with the following script . \\WINSPC-PC\1400_Log_File is the shared location that I am coping to. Any recommendations or corrections would be greatly appreciated! Sub copyLogScript() Dim fso Dim Path1,Path2 Path1 = "\Storage Card SD\Logs\*.csv" Path2 = "\\WINSPC-PC\1400_Log_File\" Set fso = CreateObject ("FileCtl.FileSystem") fso.filecopy Path1, Path2 ' Error Routine If Err.Number<> 0 Then ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description Err.Clear Exit Sub End If ShowSystemAlarm "Copy Complete" Set fso = Nothing End Sub Thanks in advance for your help!
OldSchool Posts: 18 Rating: (0)
Suggestion To thank Quote Answer

3/16/2019 2:33 PM	Rate (0)
javed88 Bronze Member Joined: 7/19/2011 Last visit: 4/11/2025 Posts: 262 Rating: (5)	Hi Old School Try to do this in 2 steps step 1 : Delete the existing file in the network Shared folder Dim fso Dim Path Set fso = CreateObject("FileCtl.FileSystem") fso.Kill("\\Test-PC\ Data1.csv") Set fso= Nothing Step 2: Copy the SD card file to Network Shared Folder Dim fso Set fso = CreateObject("FileCtl.FileSystem") fso.FileCopy "\Storage card SD\Data.csv","\\Test-PC\ Data1.csv" Set fso= Nothing Please check the same (Both are tested at my end) and share the feedback.
	JAVED AKHTAR
Suggestion To thank Quote Answer

3/19/2019 3:04 AM	Rate (0)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 4/17/2025 Posts: 3147 Rating: (523)	Hello OldSchool, OldSchool I keep getting an error with the following script . would be helpful for us to know which error you get (Err.Number, Err.Description). OldSchool [...] Path1 = "\Storage Card SD\Logs\*.csv" Path2 = "\\WINSPC-PC\1400_Log_File\" Set fso = CreateObject ("FileCtl.FileSystem") fso.filecopy Path1, Path2 [...] Path2 must be a "String that contains the file name and path of the new file". Furthermore the programming reference contains the following paragraph: SIMATIC WinCC WinCC Engineering V15.1 - Programming reference The Dir method outputs the first file name that matches the path name. If you want to output additional file names that match the path name, execute Dir again without parameters. If no further matching file names can be found, Dir returns a zero-length string (""). If a zero-length string was output, specify the path name by subsequent calling. So I guess you have to call Dir until return-string = "" and everytime use the returned string as filename for source and destination. Regards, Frink
	Last edited by: Prof. Frink at: 3/19/2019 3:06:03 AM Formatting of last quote 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

|

Share this page:

Share this page on...

Related topics by keywords:

TIA WinCC Adv System functions/Scripting

Follow us on