File Sorting using Visual Basic

Question

how to sort the files in the directory ?

i'll have more than 500 no of files in the below format.

prod_orders_XXX_<TimeStamp>.dat 

XXX         =  symbol of the product and the length may varies between 3-6.
<TimeStamp> =  date and time

Multiple files for the same XXX are possible with different time stamps.

Here are some examples:

prod_orders_abc_20122001083000.dat 
prod_orders_abc_20122001083111.dat 
prod_orders_xyz_20122001093157.dat 
prod_orders_xyz_20122001083000.dat 
prod_orders_abc_20122001163139.dat 
prod_orders_abc_20122001093137.dat

Check this link: stackoverflow.com/questions/52842/sorting-directory-getfiles — Harsh
– Harsh, Commented Jan 23, 2012 at 13:59
Please show an example FileName. How do you want to sort, filename ascending, creationtime descending? — Tim Schmelter
– Tim Schmelter, Commented Jan 23, 2012 at 14:02
prod_orders_abc_201220010830000.dat prod_orders_abc_201220010831000.dat prod_orders_xyz_201220010931670.dat prod_orders_xyz_201220010830000.dat prod_orders_abc_201220011631000.dat prod_orders_abc_201220010931670.dat — Santhosh_ms3
– Santhosh_ms3, Commented Jan 23, 2012 at 14:07
The timestamp in the file as showed will order the first of february right after the first of january and before the second of january. Is this what you want? — Wilhelm
– Wilhelm, Commented Jan 23, 2012 at 15:44

Tim Schmelter · Accepted Answer · 2012-01-24 12:44:25Z

1

Please provide the correct sample files and requirement right off the next time ;)

Here is what you need:

Dim fileList = (From file In New IO.DirectoryInfo(directoryPath).GetFiles()
          Where file.Name.IndexOf("prod_orders_") > -1
          Let dateIndex = file.Name.LastIndexOf("_") + 1
          Let dateIndexEnd = file.Name.LastIndexOf(".")
          Let datePart = file.Name.Substring(dateIndex, dateIndexEnd - dateIndex)
          Where datePart.Length = 14 AndAlso ULong.TryParse(datePart, 0)
          Let year = Int32.Parse(datePart.Substring(0, 4))
          Let day = Int32.Parse(datePart.Substring(4, 2))
          Let month = Int32.Parse(datePart.Substring(6, 2))
          Let hour = Int32.Parse(datePart.Substring(8, 2))
          Let minute = Int32.Parse(datePart.Substring(10, 2))
          Let second = Int32.Parse(datePart.Substring(12, 2))
          Let timestamp = New Date(year, month, day, hour, minute, second)
          Order By timestamp Descending
          Select file).ToList()

edited Jan 24, 2012 at 12:44

answered Jan 23, 2012 at 14:16

Tim Schmelter

462k79 gold badges721 silver badges981 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Santhosh_ms3 Over a year ago

Hello Tim, i just reedited my post. Sorry for the Inconvenience.

Tim Schmelter Over a year ago

@Santhosh: Edited my answer, please provide the correct requirement and samples next time ;)

Collectives™ on Stack Overflow

File Sorting using Visual Basic

1 Answer 1

2 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related