Open and move files follow by date

Question

How do I open files follow by date for button 1 and move the files follow by date for button 2?
Thanks

Answer 1

Try something like this
Imports System.IO
Public Class Form1
Const oldFolder As String = "c:\temp"
Const newFolder As String = "c:\temp1"
Dim count As Integer = 0
Dim oldFiles As String()
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'open follow by the file names
If count < oldFolder.Count Then
Dim ps2 As Process = Process.Start(oldFiles(count))
count += 1
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'get files
Dim info As New DirectoryInfo(oldFolder)
oldFiles = info.GetFiles("*.jpg").AsEnumerable() _
.OrderBy(Function(x) x.LastWriteTime) _
.Where(Function(x) x.LastWriteTime.Date = Now.Date) _
.Select(Function(x) x.FullName).ToArray()
count = 0
End Sub
End Class
jdweng
Joel, there are nothing happen after run your codes
Imports System.IO
Public Class Form1
Const oldFolder As String = "C:\Users\hwai\Desktop\Capture"
Const newFolder As String = "C:\Users\hwai\Desktop\ New folder(3)"
Dim count As Integer = 0
Dim oldFiles As String()
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'get files
Dim info As New DirectoryInfo(oldFolder)
oldFiles = info.GetFiles("*.jpg").AsEnumerable() _
.OrderBy(Function(x) x.LastWriteTime) _
.Where(Function(x) x.LastWriteTime.Date = Now.Date) _
.Select(Function(x) x.FullName).ToArray()
count = 0
End Sub
End Class
Thanks