Read folders inside folder, VBs script

Hi everyone,

I'm programming a Simatic HMI TP1200 Comfort Panel

And I'm try to read some folders which are included  in "\flash\folder" directory. I' using the function "dir":

Set fso = CreateObject("filectl.filesystem")
fld = fso.Dir("\flash\folder")

 But using like that I get the name "folder", and what I want is the name of the folders that they are inside of it.

I did before for WinCC Advanced using this code:

For Each fld In subFlds
   s(i) = fld.Name
   i=i+1
End If

 but I can't use the same structure because the VBs chages a bit for the Windows CE

Does someone has the solution?

Thank so much,

BR.

Hi dabopa,

Do you know the application example "Toolbox for HMI Projects"?https://support.industry.siemens.com/cs/ww/en/view/106226404

There is a "file-explorer"-tool in chapter "Increase clarity". The tool contains a script "ReadFilesOfFolder".

     The "ReadFilesOfFolder" script reads the files from the specified path and shows them as a table."The Script is for Panel based and PC based systems.
I think this is exactly what you need.

You can download the sample project and then open and adapt the script "ReadFilesOfFolder" for your project.

Best regards,
phi1016

phi1016

Hi dabopa,

Do you know the application example "Toolbox for HMI Projects"?https://support.industry.siemens.com/cs/ww/en/view/106226404

There is a "file-explorer"-tool in chapter "Increase clarity". The tool contains a script "ReadFilesOfFolder".

     The "ReadFilesOfFolder" script reads the files from the specified path and shows them as a table."The Script is for Panel based and PC based systems.
I think this is exactly what you need.

You can download the sample project and then open and adapt the script "ReadFilesOfFolder" for your project.

Best regards,
phi1016

Thanks so much phi1016,

the problema that I have is that I have the v13 version, not the v14, so I can not open the proyect to see how is the script. And I've been checking the PDFs but it doesn't appear the code.

Could you send me the code of that script?

Thank you again,

BR, dabopa.

Hey dabopa,

under the entry you can make a Feedback which will directly send to the Siemens Online Support.

There you can ask for the code.

As Attachement you can find the code of this vbs script.

With best regards

rh1990