Imports System.IO.FileStream
Imports System.IO
Public Class jobRenumber
Inherits System.Web.UI.Page
Protected WithEvents job1 As System.Web.UI.WebControls.TextBox
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents job2 As System.Web.UI.WebControls.TextBox
Protected WithEvents numStart As System.Web.UI.WebControls.TextBox
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents goBtn As System.Web.UI.WebControls.Button
Protected WithEvents ListBox1 As System.Web.UI.WebControls.ListBox
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
End Sub
Private Sub goBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles goBtn.Click
Dim path As String = "Y:\Jobs2\" & job1.Text & "\"
Dim di As New DirectoryInfo(path)
Dim File As FileInfo
For Each File In di.GetFiles("*.jpg")
ListBox1.Items.Add(File.Name.ToString)
Next
End Sub
End Class