Skip to Content

Register Login

Industry Online Support

Technical Forum

Navigation

Delete a xls document using vbs

Created by: GrahamS at: 4/26/2007 12:11 PM (5 Replies)

Rating (0)

Thanks 0

6 Entries

4/26/2007 12:11 PM	Rate (0)
GrahamS Posts: 17 Rating: (0)	Hi all, I am trying to delete a xls document using vbscript.
GrahamS Posts: 17 Rating: (0)
Suggestion To thank Quote Answer

4/26/2007 12:16 PM	Rate (0)
Ikkezelf Posts: 1084 Rating: (72)	You should use google for this there this is not a wincc specific question There are more then enough examples on how to delete a file using vb. Try starting here. This post (found through google) describes the KILL statement and also the file.delete method. with regards, Ikkezelf
Ikkezelf Posts: 1084 Rating: (72)
Suggestion To thank Quote Answer

4/26/2007 1:23 PM	Rate (0)
Danielle Posts: 1275 Rating: (123)	I've used them both before, but neither in WinCC
Danielle Posts: 1275 Rating: (123)
Suggestion To thank Quote Answer

4/26/2007 2:53 PM	Rate (0)
GrahamS Posts: 17 Rating: (0)	LOL, spent three hours trying different bits of code. Still, I have found nothing that works. Must be my ignorance or lack of understanding of VBScript. If anyone out there can help. Please help. ??What version of script does winCC 6.2 use ?? any recomendations for a compiler that will work with WinCC. Thanks,
GrahamS Posts: 17 Rating: (0)
Suggestion To thank Quote Answer

4/26/2007 3:02 PM	Rate (0)
Ikkezelf Posts: 1084 Rating: (72)	[code] Dim fso, FileToDelete Set fso = CreateObject("Scripting.FileSystemObject") FileToDelete = "c:\asdflkasd.xls" fso.DeleteFile(FileToDelete) [/code]
Ikkezelf Posts: 1084 Rating: (72)
Suggestion To thank Quote Answer

12/19/2012 12:46 AM	Rate (0)
WyattEarp Posts: 5 Rating: (5)	Try this: Sub WR_Delete_Files() 'When script is called it deletes all files in weld results folder- 'Calls WR_Zero_Clear_Screen to fill table with zeroes- 'Resets pointers- On Error Resume Next Dim fs, cleanPath, file, strTemp, total, f, strTemp1, fso 'Loop through files and delete- Set fs=CreateObject("FileCtl.Filesystem") SmartTags("WR_fileCount")=0 strTemp = fs.Dir("\Storage Card SD\Weld_Results\" & ".") While (Len(strTemp) > 0) SmartTags("WR_fileCount")=SmartTags("WR_fileCount")+1 strTemp=fs.Dir() Wend Set fs=Nothing Set fso=CreateObject("FileCtl.Filesystem") strTemp1 = fso.Dir("\Storage Card SD\Weld_Results\.",0) fso.Kill("\Storage Card SD\Weld_Results\.") 'Error checking If Err.Number <>0 Then ShowSystemAlarm "Error#" & CStr(Err.Number) & " " & Err.Description Err.Clear Exit Sub End If 'Reset pointers- SmartTags("WR_Files_present")=0 SmartTags("WR_Linecount")=0 SmartTags("WR_Total_pages")=1 SmartTags("WR_Page_counter")=1 SmartTags("WR_Page_Current")=1 SmartTags("WR_Screen_arrow_dn_visible")=0 SmartTags("WR_Screen_arrow_up_visible")=0 SmartTags("WR_File_present") = 0 SmartTags("WR_Zero_ed") = 0 'Fill table with zeroes- WR_Screen_Zero_Clear 'Error checking If Err.Number <>0 Then ShowSystemAlarm "Error#" & CStr(Err.Number) & " " & Err.Description Err.Clear ' Exit Sub' End If End Sub
WyattEarp Posts: 5 Rating: (5)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

WinCC Scripting

Follow us on