Mega Code Archive

 

Categories / VB.Net / File Directory

 

File Watcher

Imports System.IO Imports System.Windows.Forms <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class Watcher     Inherits System.Windows.Forms.Form     <System.Diagnostics.DebuggerStepThrough()> _     Private Sub InitializeComponent()         Me.Label2 = New System.Windows.Forms.Label         Me.Label1 = New System.Windows.Forms.Label         Me.txtTypes = New System.Windows.Forms.TextBox         Me.lstNewFiles = New System.Windows.Forms.ListBox         Me.cmdStop = New System.Windows.Forms.Button         Me.cmdStart = New System.Windows.Forms.Button         Me.txtDir = New System.Windows.Forms.TextBox         Me.SuspendLayout()         '         'Label2         '         Me.Label2.Location = New System.Drawing.Point(16, 40)         Me.Label2.Name = "Label2"         Me.Label2.Size = New System.Drawing.Size(60, 12)         Me.Label2.TabIndex = 13         Me.Label2.Text = "File Types:"         '         'Label1         '         Me.Label1.Location = New System.Drawing.Point(16, 16)         Me.Label1.Name = "Label1"         Me.Label1.Size = New System.Drawing.Size(40, 12)         Me.Label1.TabIndex = 12         Me.Label1.Text = "Path:"         '         'txtTypes         '         Me.txtTypes.Location = New System.Drawing.Point(76, 36)         Me.txtTypes.Name = "txtTypes"         Me.txtTypes.Size = New System.Drawing.Size(264, 21)         Me.txtTypes.TabIndex = 11         Me.txtTypes.Text = "*.xls"         '         'lstNewFiles         '         Me.lstNewFiles.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _                     Or System.Windows.Forms.AnchorStyles.Left) _                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)         Me.lstNewFiles.Location = New System.Drawing.Point(12, 108)         Me.lstNewFiles.Name = "lstNewFiles"         Me.lstNewFiles.Size = New System.Drawing.Size(328, 199)         Me.lstNewFiles.TabIndex = 10         '         'cmdStop         '         Me.cmdStop.Location = New System.Drawing.Point(228, 68)         Me.cmdStop.Name = "cmdStop"         Me.cmdStop.Size = New System.Drawing.Size(112, 24)         Me.cmdStop.TabIndex = 9         Me.cmdStop.Text = "Stop Watching"         '         'cmdStart         '         Me.cmdStart.Location = New System.Drawing.Point(108, 68)         Me.cmdStart.Name = "cmdStart"         Me.cmdStart.Size = New System.Drawing.Size(112, 24)         Me.cmdStart.TabIndex = 8         Me.cmdStart.Text = "Start Watching"         '         'txtDir         '         Me.txtDir.Location = New System.Drawing.Point(76, 12)         Me.txtDir.Name = "txtDir"         Me.txtDir.Size = New System.Drawing.Size(264, 21)         Me.txtDir.TabIndex = 7         Me.txtDir.Text = "d:\orders"         '         'Watcher         '         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font         Me.ClientSize = New System.Drawing.Size(352, 318)         Me.Controls.Add(Me.Label2)         Me.Controls.Add(Me.Label1)         Me.Controls.Add(Me.txtTypes)         Me.Controls.Add(Me.lstNewFiles)         Me.Controls.Add(Me.cmdStop)         Me.Controls.Add(Me.cmdStart)         Me.Controls.Add(Me.txtDir)         Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))         Me.Name = "Watcher"         Me.Text = "Watcher"         Me.ResumeLayout(False)         Me.PerformLayout()     End Sub     Friend WithEvents Label2 As System.Windows.Forms.Label     Friend WithEvents Label1 As System.Windows.Forms.Label     Friend WithEvents txtTypes As System.Windows.Forms.TextBox     Friend WithEvents lstNewFiles As System.Windows.Forms.ListBox     Friend WithEvents cmdStop As System.Windows.Forms.Button     Friend WithEvents cmdStart As System.Windows.Forms.Button     Friend WithEvents txtDir As System.Windows.Forms.TextBox     Private WithEvents Watch As New FileSystemWatcher()     Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click         Watch.Path = txtDir.Text         Watch.Filter = txtTypes.Text         Watch.EnableRaisingEvents = True     End Sub     Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click         Watch.EnableRaisingEvents = False     End Sub     Private Sub Watch_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles Watch.Created         lstNewFiles.Invoke(New UpdateListDelegate(AddressOf UpdateList), e.Name)     End Sub     Private Delegate Sub UpdateListDelegate(ByVal name As String)     Private Sub UpdateList(ByVal name As String)         lstNewFiles.Items.Add("New file: " & Name)     End Sub End Class