Navigation

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

Created by: Zefir at: 7/1/2014 9:10 PM (11 Replies)

Rating (4)

Thanks 4

Result pages:: |; 1 | 2; |

12 Entries

Entries per page: 10 | all

7/1/2014 9:10 PM	Rate (0)
Zefir Bronze Member Joined: 9/16/2009 Last visit: 8/13/2020 Posts: 89 Rating: (3)	Hello all ! It's possible to do this: I would like to save historical data in certain folder. All files with diffrent names. And if it's possibleI would like to read the names of all files, and put the names of this files in txt list to make sometink likecombobox. It's possible in TP1500 Comfort ? Best Regards Zefir

Suggestion To thank Quote Answer

7/2/2014 1:32 PM

Rate (0)

Jens_app

Gold Member

Joined: 1/5/2011

Last visit: 6/15/2024

Posts: 815

Rating:

(123)

Hi Zefir,

I'm not good when it comes to VB scripting but you should definately take a look at the following syntax:

Dir
Function

This method returns the name of a file, directory, or folder that matches a specified pattern or file attribute.

Syntax

File.Dir (Pathname,[Attributes])

Parameters

File

Reference to a FileSystem control.

Pathname

Optional. String expression that specifies a file name or path.

Attributes

Optional. Numeric expression whose sum specifies file attributes. If omitted, all files that match pathname are returned.

The following table describes the parameter settings of attributes.

Constant

Value

Description

fsAttrNormal

0

Normal

fsAttrReadOnly

1

Read only

fsAttrHidden

2

Hidden

fsAttrSystem

4

System file

fsAttrVolume

8

Volume label. If specified, all other attributes are ignored.

fsAttrDirectory

16

Directory or folder

fsAttrArchive

32

Logs

Return values

String. File name that matches pathname and attributes. Dir returns a zero-length string ("") if pathname is not found.

Remarks

Dir supports the use of multiple-character (*) and single-character (?) wildcards to specify multiple files. You must specify pathname the first time you call the Dir method. In addition, if you specify file attributes you must include pathname.
The Dir method returns the first file name that matches pathname. To get any additional file names that match pathname, call Dir again with no parameters. When no more file names match, Dir returns a zero-length string (" "). Once a zero-length string is returned, you must specify pathname in subsequent calls.

Kind regards,
Jens

Keep it simple and on-topic.

A simple straight-to-the-point answer is often of more quality than a complicated one.

7/6/2014 9:17 PM	Rate (0)
Zefir Bronze Member Joined: 9/16/2009 Last visit: 8/13/2020 Posts: 89 Rating: (3)	Hi Ok. But if I would read all file witch are in folder with is the best wey to reach this purpose ?? Regards Zefir

Suggestion To thank Quote Answer

7/7/2014 9:04 AM	Rate (0)
Jens_app Gold Member Joined: 1/5/2011 Last visit: 6/15/2024 Posts: 815 Rating: (123)	Zefir Hi Ok. But if I would read all file witch are in folder with is the best wey to reach this purpose ?? Regards Zefir Hi Zefir, you which to know the filenames of files in a folder, correct? Kr, Jens
	Keep it simple and on-topic. A simple straight-to-the-point answer is often of more quality than a complicated one.
Suggestion To thank Quote Answer

7/7/2014 12:51 PM	Rate (0)
Zefir Bronze Member Joined: 9/16/2009 Last visit: 8/13/2020 Posts: 89 Rating: (3)	Hi Yes. I would like to use this funftion to load archive data to Trend view. Enather use of this function will be load archive alarm log to Alarm view If you can help me, I will be very grateful. Best Regards Zefir

Suggestion To thank Quote Answer

7/8/2014 8:10 PM	Rate (0)
Jens_app Gold Member Joined: 1/5/2011 Last visit: 6/15/2024 Posts: 815 Rating: (123)	Zefir Hi Yes. I would like to use this funftion to load archive data to Trend view. Enather use of this function will be load archive alarm log to Alarm view If you can help me, I will be very grateful. Best Regards Zefir Hi Zefir, my knowledge of VB is just too limited to help you with your issue. An expert will have to help you further, my apologies. If anything comes to mind, I'll surely post it here. Kind regards, Jens
	Keep it simple and on-topic. A simple straight-to-the-point answer is often of more quality than a complicated one.
Suggestion To thank Quote Answer

7/9/2014 1:02 AM	Rate (0)
Zefir Bronze Member Joined: 9/16/2009 Last visit: 8/13/2020 Posts: 89 Rating: (3)	Ok Thanks Regards Zefir

Suggestion To thank Quote Answer

7/14/2014 11:05 AM	Rate (0)
K!ke Posts: 1299 Rating: (136)	Hello, you can use the system function openfilebrowser, so you won't need the text list and combo box. K!ke
K!ke Posts: 1299 Rating: (136)
Suggestion To thank Quote Answer

7/14/2014 8:13 PM	Rate (0)
Zefir Bronze Member Joined: 9/16/2009 Last visit: 8/13/2020 Posts: 89 Rating: (3)	Hi It isn't good solution for me. Best Regards Zefir

Suggestion To thank Quote Answer

7/7/2016 3:00 AM	Rate (4)
Failsafe Posts: 6 Rating: (6)	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 (1436 Downloads)
Failsafe Posts: 6 Rating: (6)	Last edited by: Failsafe at: 7/7/2016 3:11:00 AM
Suggestion To thank Quote Answer
This contribution was helpful to 4 thankful Users H.J. S.I.P.I.E. srl Daro02 Rushmoe

Share this page:

Share this page on...

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

Created by: Zefir at: 7/1/2014 9:10 PM (11 Replies)

Rating (4)

Thanks 4

12 Entries

Entries per page: 10 | all

Zefir

Jens_app

Zefir

Jens_app

Zefir

Jens_app

Zefir

K!ke

Zefir

Failsafe

Attachment

Last edited by: Failsafe at: 7/7/2016 3:11:00 AM

This contribution was helpful to

12 Entries

Entries per page: 10 | all

Related topics by keywords:

Follow us on

Created by: Zefir at: 7/1/2014 9:10 PM (11 Replies)

Rating (4) Thanks 4

12 Entries

Entries per page: 10 | all

Attachment

Last edited by: Failsafe at: 7/7/2016 3:11:00 AM

This contribution was helpful to

12 Entries

Entries per page: 10 | all

All about SIMATIC WinCC (TIA Portal)

Related topics by keywords:

Follow us on

Rating (4)

Thanks 4