Visual Basic

<br />
<br />
Imports System.IO<br />
Imports System.Diagnostics<br />
<br />
Public Class Form2<br />
    ' Created 2/7/2005 <br />
    ' Concept applications to watch stage for file changes, and keep record of list. Then moving all changed files to production<br />
    ' Copy all files that have changed, or have been created to new folder based on scheduled timeframe<br />
<br />
    Public watchfolder As FileSystemWatcher<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_startwatch.Click<br />
        watchfolder = New System.IO.FileSystemWatcher()<br />
<br />
        'this is the path we want to monitor<br />
        watchfolder.Path = txt_watchpath.Text<br />
<br />
        'Add a list of Filter we want to specify<br />
        'make sure you use OR for each Filter as we need to<br />
        'all of those <br />
<br />
        ' Specifies that filesystemwatch will watch subdirectories<br />
        watchfolder.IncludeSubdirectories = True<br />
<br />
        watchfolder.NotifyFilter = IO.NotifyFilters.DirectoryName<br />
        watchfolder.NotifyFilter = watchfolder.NotifyFilter Or _<br />
                                   IO.NotifyFilters.FileName<br />
        watchfolder.NotifyFilter = watchfolder.NotifyFilter Or _<br />
                                   IO.NotifyFilters.Attributes<br />
<br />
<br />
        ' add the handler to each event<br />
        AddHandler watchfolder.Changed, AddressOf logchange<br />
        AddHandler watchfolder.Created, AddressOf logchange<br />
        AddHandler watchfolder.Deleted, AddressOf logchange<br />
<br />
        ' add the rename handler as the signature is different<br />
        AddHandler watchfolder.Renamed, AddressOf logrename<br />
<br />
        'Set this property to true to start watching<br />
        watchfolder.EnableRaisingEvents = True<br />
<br />
        btn_startwatch.Enabled = False<br />
        btn_stop.Enabled = True<br />
<br />
        txt_status.Text = "Watching Folder(s) & File(s)"<br />
        'End of code for btn_start_click<br />
    End Sub<br />
<br />
    Private Sub logchange(ByVal source As Object, ByVal e As _<br />
                        System.IO.FileSystemEventArgs)<br />
        If e.ChangeType = IO.WatcherChangeTypes.Changed Then<br />
            txt_folderactivity.Text &= "File " & e.FullPath & _<br />
                                    " has been modified" & vbCrLf<br />
<br />
            ' Check to see if item is already added to the list<br />
            Dim a As Integer<br />
            Dim CaseSense As Integer<br />
            'CaseSense = 0 For CaSe SeNsItIvE<br />
            'CaseSense = 1 for not case sensitive<br />
            ' works with List, Combo<br />
            For a = 0 To changed_files.Items.Count() - 1<br />
                If InStr(1, changed_files.Items(a), e.Name, CaseSense) _<br />
            And Len(changed_files.Items(a)) = Len(e.Name) Then Exit Sub<br />
            Next<br />
<br />
            ' end if exist code<br />
<br />
            changed_files.Items.Add(e.Name) ' adds the modified file to the list<br />
<br />
            txt_itemcount.Text = changed_files.Items.Count() ' updates the item count on-screen<br />
<br />
        End If<br />
        If e.ChangeType = IO.WatcherChangeTypes.Created Then<br />
            txt_folderactivity.Text &= "File " & e.FullPath & _<br />
                                     " has been created" & vbCrLf<br />
<br />
            ' Check to see if item is already added to the list<br />
            Dim a As Integer<br />
            Dim CaseSense As Integer<br />
            'CaseSense = 0 For CaSe SeNsItIvE<br />
            'CaseSense = 1 for not case sensitive<br />
            ' works with List, Combo<br />
            For a = 0 To changed_files.Items.Count() - 1<br />
                If InStr(1, changed_files.Items(a), e.Name, CaseSense) _<br />
            And Len(changed_files.Items(a)) = Len(e.Name) Then Exit Sub<br />
            Next<br />
<br />
            ' end if exist code<br />
<br />
<br />
            changed_files.Items.Add(e.Name) ' adds the modified file to the list<br />
<br />
            txt_itemcount.Text = changed_files.Items.Count() ' updates the item count on-screen<br />
<br />
        End If<br />
        If e.ChangeType = IO.WatcherChangeTypes.Deleted Then<br />
            txt_folderactivity.Text &= "File " & e.FullPath & _<br />
                                    " has been deleted" & vbCrLf<br />
        End If<br />
    End Sub<br />
<br />
    Public Sub logrename(ByVal source As Object, ByVal e As _<br />
                            System.IO.RenamedEventArgs)<br />
        txt_folderactivity.Text &= "File" & e.OldName & _<br />
                      " has been renamed to " & e.Name & vbCrLf<br />
    End Sub<br />
<br />
    Private Sub btn_stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_stop.Click<br />
        watchfolder.EnableRaisingEvents = False<br />
        btn_startwatch.Enabled = True<br />
        btn_stop.Enabled = False<br />
        txt_status.Text = "Stopped"<br />
    End Sub<br />
<br />
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
        Dim x As Integer<br />
        Dim count As Integer<br />
        Dim listboxitem As String<br />
        count = changed_files.Items.Count() - 1<br />
<br />
        If txt_watchpath.Text = "" Then<br />
            Dim MsgResult As MsgBoxResult<br />
            MsgResult = MsgBox("You must enter a valid (Folder to watch) path.")<br />
        End If<br />
<br />
        ' Sets the current status of the applications (copying)<br />
        txt_status.Text = "Copying Files to selected location"<br />
<br />
<br />
        ' Display the ProgressBar control.<br />
        ProgressBar1.Visible = True<br />
        ' Set Minimum to 1 to represent the first file being copied.<br />
        ProgressBar1.Minimum = 0<br />
        ' Set Maximum to the total number of files to copy.<br />
        ProgressBar1.Maximum = count<br />
        ' Set the initial value of the ProgressBar.<br />
        ProgressBar1.Value = 0<br />
        ' Set the Step property to a value of 1 to represent each file being copied.<br />
        ProgressBar1.Step = 1<br />
<br />
<br />
<br />
<br />
        For x = 0 To count<br />
<br />
            changed_files.SetSelected(x, True)<br />
            listboxitem = changed_files.SelectedItem.ToString()<br />
<br />
            '    Directories that are being manipulated.<br />
            Dim path As String = txt_watchpath.Text + "\" + listboxitem ' Watch Path<br />
            Dim path2 As String = txt_copyLocation.Text + "\" + listboxitem ' "Copy to" Location<br />
            Dim path3 As String = txt_backupLocation.Text + "\" + listboxitem ' "Copy to (if file exists)-Backup" location<br />
<br />
            Try<br />
                Dim fs As FileStream = File.Create(path)<br />
                fs.Close()<br />
<br />
                '   Ensure that the Copy locations does Not already contain the files<br />
                If File.Exists(path2) Then<br />
                    If File.Exists(path3) Then<br />
                        File.Delete(path3) 'if file exists is in backup location already- delete it<br />
                    End If<br />
                    File.Copy(path2, path3) ' if copylocation file exists , move to backup folder<br />
<br />
                End If<br />
                File.Delete(path2)<br />
                '  Copy the file.<br />
                File.Copy(path, path2)<br />
                'Console.WriteLine("{0} copied to {1}", Path, path2)<br />
<br />
                '  Try to copy the same file again, which should succeed.<br />
                File.Copy(path, path2, True)<br />
                ' Console.WriteLine("The second Copy operation succeeded, which was expected.")<br />
<br />
            Catch<br />
                txt_status.ForeColor.ToKnownColor.Red.ToString()<br />
                txt_status.Text = "An error has occurred while copying changed/created file(s)"<br />
            End Try<br />
<br />
            ProgressBar1.PerformStep() ' Increment the progress bar<br />
<br />
        Next x ' goes through next item in the listbox<br />
<br />
<br />
<br />
        ' Sets the current status of the applications (copying)<br />
        txt_status.Text = "All files have been copies Succesfully!"<br />
    End Sub<br />
<br />
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_brs_Folder.Click<br />
        Dim folderBrowserDialog1 As New FolderBrowserDialog<br />
<br />
        'Present the user with a file open dialog box.<br />
        folderBrowserDialog1.ShowNewFolderButton = True<br />
        If folderBrowserDialog1.ShowDialog() = DialogResult.OK Then<br />
<br />
        End If<br />
        txt_watchpath.Text = folderBrowserDialog1.SelectedPath<br />
    End Sub<br />
<br />
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
    End Sub<br />
<br />
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_brs_Copy.Click<br />
        Dim folderBrowserDialog1 As New FolderBrowserDialog<br />
<br />
        'Present the user with a file open dialog box.<br />
        folderBrowserDialog1.ShowNewFolderButton = True<br />
        If folderBrowserDialog1.ShowDialog() = DialogResult.OK Then<br />
<br />
        End If<br />
        txt_copyLocation.Text = folderBrowserDialog1.SelectedPath<br />
    End Sub<br />
<br />
    Private Sub btn_brs_Backup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_brs_Backup.Click<br />
        Dim folderBrowserDialog1 As New FolderBrowserDialog<br />
<br />
        'Present the user with a file open dialog box.<br />
        folderBrowserDialog1.ShowNewFolderButton = True<br />
        If folderBrowserDialog1.ShowDialog() = DialogResult.OK Then<br />
<br />
        End If<br />
        txt_backupLocation.Text = folderBrowserDialog1.SelectedPath<br />
    End Sub<br />
<br />
    Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        changed_files.Items.Clear()<br />
    End Sub<br />
<br />
    <br />
<br />
End Class<br />
<br />

-click event:<br />
run winamp (or wmp) and play file with full path as "c:\data\ + file name (from text box) + .mp3"