Problem with filesystem object on TP1500

Failsafe

To get the content of the folder you may use file system functions.

To read and display the list of all files and directories the following subroutine has been written:

Sub FILE_List_Dir()

Dim fso, nFileIndex

Dim sFileName, nFileAttr, folder, maxfileindex

folder = SmartTags("FILE_Path")

maxfileindex = SmartTags("FILE_List_Size") - 1

'Windows CE

Set fso = CreateObject("FileCtl.FileSystem")

'Get first item that matches path

sFileName = fso.Dir(folder & "*.*")

nFileIndex = 0

'Get the rest of matches

Do While sFileName <> ""

If (nFileIndex >= 0 ) And (nFileIndex <= maxfileindex) Then

SmartTags("FILE_Name_" & CStr(nFileIndex)) = sFileName

nFileAttr = fso.GetAttr(folder & sFileName)

If (nFileAttr And 16) <> 0 Then

SmartTags("FILE_Size_" & CStr(nFileIndex)) = "dir"

Else

SmartTags("FILE_Size_" & CStr(nFileIndex)) = CStr(fso.FileLen(folder & sFileName))

End If

End If

nFileIndex = nFileIndex + 1

sFileName = fso.Dir

Loop

SmartTags("FILE_Qty") = nFileIndex

SmartTags("FILE_Selector") = -1

Set fso = Nothing

End Sub

Where
maxfileindex - limits the length of the list
folder - path to the target directory

This is 2 years old thread but I hope this code may be useful for someone else too.
The result is shown on the attached image

Attachment

IMG_0758.JPG(817 Downloads)

Quesation:

On which kind of Panel/HMI these code can be used?

Because i have problem with filesystem object on my TP1500 which running on windows CE 6.0 PC.

BR

Behnam

------------------------------------------------------------------------------------------
Split from Haw can I get file name form folser. Use VB script, TP1500 Comfort.

Currently running this on a TP1500

Try using this simplified version and expand it from there:

Hope this helps Sim on HMI not PC (Windows CE)