Skip to Content

Register Login

Default Header

(header konnte nicht geladen werden)

Navigation

Find Used or Free Space on a USB/SD Card on Comfort/MP37x Panels

Created by: Tangowolf at: 10/8/2013 11:06 PM (7 Replies)

Rating (3)

Thanks 2

8 Entries

10/8/2013 11:06 PM	Rate (1)
Tangowolf Regular Member Joined: 4/29/2009 Last visit: 8/26/2025 Posts: 13 Rating: (2)	Does anyone know of a way to find the used or free space of a USB/SD Card installed in a Comfort Panel or MP37x Panel. I have only found the "FileLen" and "LSO" Vbscript functions. These only reporta file size.(Panels ONLY not PC Runtime) I have built a logging function to write to either of these sources in Vbscript, but need to know the available space to calculate how many hours/minutes of space is left, to log to. I can then Alarm the operator when the USB/SD card is close to full. Many Thanks

Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users AymericProftia

10/23/2013 10:17 AM	Rate (1)
Healthcheck Posts: 821 Rating: (41)	Hi Tangowolf, have you looked for an windows CEfunction to do this? Perhaps you can integrate it in your function. regards, Healthcheck
Healthcheck Posts: 821 Rating: (41)
Suggestion To thank Quote Answer

3/13/2014 10:36 PM	Rate (1)
Tangowolf Regular Member Joined: 4/29/2009 Last visit: 8/26/2025 Posts: 13 Rating: (2)	Great Reply...... Here is some code that Works but I still have an issue that the command window pops up. I would like it to stay Hidden. Any Ideas? Dim fo Dim fso Dim data Dim splitdata Dim delimiter Dim arrayData Dim arrayLength Dim usedsizeMB Dim usedsizeBYTES Dim freesizeBYTES Dim totalSizeMB Dim freesizeMB Dim strArr_realData Dim temp Dim commaDelimiter Dim storage_path Dim filename Dim myfile splitdata=0 delimiter=" " commaDelimiter="," storage_path = "\Storage Card USB\" filename = "dirinfo.txt" Set fso = CreateObject("FileCtl.FileSystem") Set myfile = CreateObject("FileCtl.File") 'Delete text file if it exists (dirinfo.txt) If (fso.Dir(storage_path & filename) = filename) Then fso.kill(storage_path & filename) End If 'Delete batch file if it exists (cmddir.bat) If (fso.Dir(storage_path & "cmddir.bat") = "cmddir.bat") Then fso.kill(storage_path & "cmddir.bat") End If 'Create batch file Set fo = CreateObject("FileCtl.File") fo.open storage_path & "cmddir.bat",8 fo.lineprint("cd " & """\Storage Card USB\""") fo.lineprint("dir /s > " & filename) 'This command will create the file (dirinfo.txt) fo.close 'Execute batch file StartProgram "CMD","/C " & """\Storage Card USB\cmddir.bat""", hmiShowMinimized,hmiYes 'Wait until output is complete Do Until fso.Dir(storage_path & filename) = filename Loop myfile.open storage_path & filename, 1 While myfile.EOF = False data = data + myfile.LineInputString Wend arrayData=Split(data,delimiter) arrayLength=UBound(arrayData) Dim i For i = 0 To arrayLength If arrayData(i) = "" Then 'do nothing Else temp = temp + arrayData(i) + "," End If Next 'ShowSystemAlarm temp strArr_realData = Split(temp, commaDelimiter) arrayLength = UBound(strArr_realData) 'ShowSystemAlarm arrayLength freesizeBYTES = CDbl(strArr_realData(arrayLength-3)) usedsizeBYTES = CDbl(strArr_realData(arrayLength-7)) freesizeMB = freesizeBYTES / 1048576 usedsizeMB = usedsizeBYTES / 1048576 totalSizeMB = freesizeMB + usedsizeMB SmartTags("FreeSizeMB") = freesizeMB SmartTags("TotalSizeMB")= totalSizeMB myfile.Close fso.kill(storage_path & filename) Set myfile = Nothing : Set fso = Nothing

Suggestion To thank Quote Answer
This contribution was helpful to 1 thankful Users AymericProftia

9/16/2014 6:23 PM	Rate (0)
Tangowolf Regular Member Joined: 4/29/2009 Last visit: 8/26/2025 Posts: 13 Rating: (2)	Great Thanks I will give this a try.

Suggestion To thank Quote Answer

8/10/2016 3:24 PM	Rate (0)
rdoliveira Platinum Member Joined: 4/26/2012 Last visit: 12/26/2025 Posts: 1653 Rating: (191)	hello Tango Wolf. The problem of the command window appears, you could solve? I have the same problem. Tangowolf Great Reply...... Here is some code that Works but I still have an issue that the command window pops up. I would like it to stay Hidden. Any Ideas? Dim fo Dim fso Dim data Dim splitdata Dim delimiter Dim arrayData Dim arrayLength Dim usedsizeMB Dim usedsizeBYTES Dim freesizeBYTES Dim totalSizeMB Dim freesizeMB Dim strArr_realData Dim temp Dim commaDelimiter Dim storage_path Dim filename Dim myfile splitdata=0 delimiter=" " commaDelimiter="," storage_path = "\Storage Card USB\" filename = "dirinfo.txt" Set fso = CreateObject("FileCtl.FileSystem") Set myfile = CreateObject("FileCtl.File") 'Delete text file if it exists (dirinfo.txt) If (fso.Dir(storage_path & filename) = filename) Then fso.kill(storage_path & filename) End If 'Delete batch file if it exists (cmddir.bat) If (fso.Dir(storage_path & "cmddir.bat") = "cmddir.bat") Then fso.kill(storage_path & "cmddir.bat") End If 'Create batch file Set fo = CreateObject("FileCtl.File") fo.open storage_path & "cmddir.bat",8 fo.lineprint("cd " & """\Storage Card USB\""") fo.lineprint("dir /s > " & filename) 'This command will create the file (dirinfo.txt) fo.close 'Execute batch file StartProgram "CMD","/C " & """\Storage Card USB\cmddir.bat""", hmiShowMinimized,hmiYes 'Wait until output is complete Do Until fso.Dir(storage_path & filename) = filename Loop myfile.open storage_path & filename, 1 While myfile.EOF = False data = data + myfile.LineInputString Wend arrayData=Split(data,delimiter) arrayLength=UBound(arrayData) Dim i For i = 0 To arrayLength If arrayData(i) = "" Then 'do nothing Else temp = temp + arrayData(i) + "," End If Next 'ShowSystemAlarm temp strArr_realData = Split(temp, commaDelimiter) arrayLength = UBound(strArr_realData) 'ShowSystemAlarm arrayLength freesizeBYTES = CDbl(strArr_realData(arrayLength-3)) usedsizeBYTES = CDbl(strArr_realData(arrayLength-7)) freesizeMB = freesizeBYTES / 1048576 usedsizeMB = usedsizeBYTES / 1048576 totalSizeMB = freesizeMB + usedsizeMB SmartTags("FreeSizeMB") = freesizeMB SmartTags("TotalSizeMB")= totalSizeMB myfile.Close fso.kill(storage_path & filename) Set myfile = Nothing : Set fso = Nothing
	"Always make a backup before performing any tests and check the best time to do so. Obrigado.
Suggestion To thank Quote Answer

8/11/2016 1:08 PM	Rate (0)
rdoliveira Platinum Member Joined: 4/26/2012 Last visit: 12/26/2025 Posts: 1653 Rating: (191)	rdoliveira hello Tango Wolf. The problem of the command window appears, you could solve? I have the same problem. Tangowolf Great Reply...... Here is some code that Works but I still have an issue that the command window pops up. I would like it to stay Hidden. Any Ideas? Dim fo Dim fso Dim data Dim splitdata Dim delimiter Dim arrayData Dim arrayLength Dim usedsizeMB Dim usedsizeBYTES Dim freesizeBYTES Dim totalSizeMB Dim freesizeMB Dim strArr_realData Dim temp Dim commaDelimiter Dim storage_path Dim filename Dim myfile splitdata=0 delimiter=" " commaDelimiter="," storage_path = "\Storage Card USB\" filename = "dirinfo.txt" Set fso = CreateObject("FileCtl.FileSystem") Set myfile = CreateObject("FileCtl.File") 'Delete text file if it exists (dirinfo.txt) If (fso.Dir(storage_path & filename) = filename) Then fso.kill(storage_path & filename) End If 'Delete batch file if it exists (cmddir.bat) If (fso.Dir(storage_path & "cmddir.bat") = "cmddir.bat") Then fso.kill(storage_path & "cmddir.bat") End If 'Create batch file Set fo = CreateObject("FileCtl.File") fo.open storage_path & "cmddir.bat",8 fo.lineprint("cd " & """\Storage Card USB\""") fo.lineprint("dir /s > " & filename) 'This command will create the file (dirinfo.txt) fo.close 'Execute batch file StartProgram "CMD","/C " & """\Storage Card USB\cmddir.bat""", hmiShowMinimized,hmiYes 'Wait until output is complete Do Until fso.Dir(storage_path & filename) = filename Loop myfile.open storage_path & filename, 1 While myfile.EOF = False data = data + myfile.LineInputString Wend arrayData=Split(data,delimiter) arrayLength=UBound(arrayData) Dim i For i = 0 To arrayLength If arrayData(i) = "" Then 'do nothing Else temp = temp + arrayData(i) + "," End If Next 'ShowSystemAlarm temp strArr_realData = Split(temp, commaDelimiter) arrayLength = UBound(strArr_realData) 'ShowSystemAlarm arrayLength freesizeBYTES = CDbl(strArr_realData(arrayLength-3)) usedsizeBYTES = CDbl(strArr_realData(arrayLength-7)) freesizeMB = freesizeBYTES / 1048576 usedsizeMB = usedsizeBYTES / 1048576 totalSizeMB = freesizeMB + usedsizeMB SmartTags("FreeSizeMB") = freesizeMB SmartTags("TotalSizeMB")= totalSizeMB myfile.Close fso.kill(storage_path & filename) Set myfile = Nothing : Set fso = Nothing
	"Always make a backup before performing any tests and check the best time to do so. Obrigado.
Suggestion To thank Quote Answer

11/30/2018 10:10 AM	Rate (0)
AymericProftia Experienced Member Joined: 9/23/2016 Last visit: 12/5/2025 Posts: 18 Rating: (0)	I tested and it works. Just create two internal HMI tag of type Real : FreeSizeMB and TotalSizeMB. I made the script for both HMI Panel based on Windows CE (here TP 1200 Comfort) : Sub Stockage_SD() Dim fo Dim fso Dim data Dim splitdata Dim delimiter Dim arrayData Dim arrayLength Dim usedsizeMB Dim usedsizeBYTES Dim freesizeBYTES Dim totalSizeMB Dim freesizeMB Dim strArr_realData Dim temp Dim commaDelimiter Dim storage_path Dim filename Dim myfile splitdata=0 delimiter=" " commaDelimiter="," storage_path = "\Storage Card SD\" 'storage_path = "F:\" filename = "dirinfo.txt" Set fso = CreateObject("FileCtl.FileSystem") Set myfile = CreateObject("FileCtl.File") 'Delete text file if it exists (dirinfo.txt) If (fso.Dir(storage_path & filename) = filename) Then fso.kill(storage_path & filename) End If 'Delete batch file if it exists (cmddir.bat) If (fso.Dir(storage_path & "cmddir.bat") = "cmddir.bat") Then fso.kill(storage_path & "cmddir.bat") End If 'Create batch file Set fo = CreateObject("FileCtl.File") fo.open storage_path & "cmddir.bat",8 fo.lineprint("cd " & """\Storage Card SD\""") 'fo.lineprint("cd " & """F:\""") fo.lineprint("dir /s > " & filename) 'This command will create the file (dirinfo.txt) fo.close 'Execute batch file StartProgram "CMD","/C " & """\Storage Card SD\cmddir.bat""", hmiShowMinimized,hmiYes 'StartProgram "CMD","/C " & """F:\cmddir.bat""", hmiShowMinimized,hmiYes 'Wait until output is complete Do Until fso.Dir(storage_path & filename) = filename Loop myfile.open storage_path & filename, 1 While myfile.EOF = False data = data + myfile.LineInputString Wend arrayData=Split(data,delimiter) arrayLength=UBound(arrayData) Dim i For i = 0 To arrayLength If arrayData(i) = "" Then 'do nothing Else temp = temp + arrayData(i) + "," End If Next 'ShowSystemAlarm temp strArr_realData = Split(temp, commaDelimiter) arrayLength = UBound(strArr_realData) 'ShowSystemAlarm arrayLength freesizeBYTES = CDbl(strArr_realData(arrayLength-3)) usedsizeBYTES = CDbl(strArr_realData(arrayLength-7)) freesizeMB = freesizeBYTES / 1048576 usedsizeMB = usedsizeBYTES / 1048576 totalSizeMB = freesizeMB + usedsizeMB SmartTags("FreeSizeMB") = freesizeMB SmartTags("TotalSizeMB")= totalSizeMB myfile.Close fso.kill(storage_path & filename) Set myfile = Nothing : Set fso = Nothing End Sub Here the script for WinCC Runtime based on Windows (in my case, simulation mode on Windows 10 of a TP1200 comfort panel) : Sub Stockage_SD() Dim f Dim fo Dim fso Dim ts Dim data Dim splitdata Dim delimiter Dim arrayData Dim arrayLength Dim usedsizeMB Dim usedsizeBYTES Dim freesizeBYTES Dim totalSizeMB Dim freesizeMB Dim strArr_realData Dim temp Dim commaDelimiter Dim storage_path Dim filename Dim myfile splitdata=0 delimiter=" " commaDelimiter="," 'storage_path = "\Storage Card SD\" storage_path = "F:\" filename = "dirinfo.txt" 'Set fso = CreateObject("FileCtl.FileSystem") Set fso = CreateObject("Scripting.FileSystemObject") 'Set myfile = CreateObject("FileCtl.File") 'Delete text file if it exists (dirinfo.txt) 'If (fso.Dir(storage_path & filename) = filename) Then If fso.FileExists(storage_path & filename) Then 'fso.kill(storage_path & filename) fso.DeleteFile(storage_path & filename) End If 'Delete batch file if it exists (cmddir.bat) 'If (fso.Dir(storage_path & "cmddir.bat") = "cmddir.bat") Then If fso.FileExists(storage_path & "cmddir.bat") Then 'fso.kill(storage_path & "cmddir.bat") fso.DeleteFile(storage_path & "cmddir.bat") End If 'Create batch file 'Set fo = CreateObject("FileCtl.File") fso.CreateTextFile(storage_path & "cmddir.bat") 'fo.open storage_path & "cmddir.bat",8 Set f = fso.GetFile(storage_path & "cmddir.bat") Set ts = f.OpenAsTextStream(8, -2) ' mode "8" to append to file ' mode "2" to overwrite file ''fo.lineprint("cd " & """\Storage Card SD\""") 'fo.lineprint("cd " & """F:\""") 'ts.WriteLine("cd " & """F:\""") ts.WriteLine("chcp 1252") ts.WriteLine("F:") 'fo.lineprint("dir /s > " & filename) 'This command will create the file (dirinfo.txt) ts.WriteLine("dir /s > " & filename) 'ts.WriteLine("pause") 'fo.close ts.Close Set ts = Nothing Set f = Nothing 'Execute batch file 'StartProgram "CMD","/C " & """\Storage Card SD\cmddir.bat""", hmiShowMinimized,hmiYes StartProgram "CMD","/C " & "F:\cmddir.bat", hmiShowMinimized,hmiYes 'StartProgram "CMD","/C " & """\Storage Card SD\cmddir.bat""", hmiShowMinimized,hmiYes 'Wait until output is complete 'Do Until fso.Dir(storage_path & filename) = filename ''Do Until Not fso.FileExists(storage_path & filename) ''Loop Dim dteWait dteWait = DateAdd("s", 10, Now()) Do Until (Now() > dteWait) Loop Set myfile = fso.OpenTextFile(storage_path & filename, 1, -2) 'myfile.open storage_path & filename, 1 'While myfile.EOF = False 'data = data + myfile.LineInputString 'Wend Do data = data + myfile.ReadLine Loop Until myfile.AtEndOfStream arrayData=Split(data,delimiter) arrayLength=UBound(arrayData) Dim i For i = 0 To arrayLength If arrayData(i) = "" Then 'do nothing Else temp = temp + arrayData(i) + "," End If Next 'ShowSystemAlarm temp strArr_realData = Split(temp, commaDelimiter) arrayLength = UBound(strArr_realData) 'ShowSystemAlarm arrayLength freesizeBYTES = CDbl(strArr_realData(arrayLength-3)) usedsizeBYTES = CDbl(strArr_realData(arrayLength-7)) freesizeMB = freesizeBYTES / 1048576 usedsizeMB = usedsizeBYTES / 1048576 totalSizeMB = freesizeMB + usedsizeMB SmartTags("FreeSizeMB") = freesizeMB SmartTags("TotalSizeMB")= totalSizeMB myfile.Close 'fso.kill(storage_path & filename) fso.DeleteFile(storage_path & filename) Set myfile = Nothing Set fso = Nothing End Sub Thank tangowolf for the script.
	Industrial Software Engineer
Suggestion To thank Quote Answer

3/15/2020 4:36 PM	Rate (0)
ValentiniAlessandro Advanced Member Joined: 3/10/2020 Last visit: 12/14/2025 Posts: 31 Rating: (1)	Hi, `has anyone figured out how to hide the command prompt?`

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on