Almost Working

Question

0.00/5 (No votes)

See more:

I am not having any problem with this code and it is doing what it should but I feel that it is not checking the system for the names in my text file. What is ment by "Put your path here?" and how can I display the files that are being searched through in a label as opposed to a list or text box?. the scan also seems to not exit.... and my stop and delete buttons no longer work once this code is in place... any ideas or can someone rewrite this? please help

Imports System.IOPublic Class Form1
    
Private Sub searchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles searchButton.Click        
Dim direc As New DirectoryInfo("C:\");Put your path here. 
If direc.Exists = False Then
            MsgBox("The path does not exist. Please specify a correct path")            
Exit Sub
        End If
        ListBox1.Items.Add("Folders are : ")        Application.DoEvents()        
RepeatDir(direc)    
End Sub
    Function RepeatDir(ByVal drr As DirectoryInfo)        
Dim directoryListing() As DirectoryInfo = drr.GetDirectories()        For Each fls As DirectoryInfo In directoryListing            
Try
                ListBox1.Items.Add(fls.FullName)                RepeatDir(fls)                
ListBox1.Items.Add("Checking for Files:")                RepeatFiles(fls)            
Catch ex As Exception                
ListBox1.Items.Add("Unable to access directory:" & fls.FullName)            
End Try
            Application.DoEvents()       
 Next
    End Function
    Function RepeatFiles(ByVal dirs As DirectoryInfo)       
 Dim fileListing() As FileInfo = dirs.GetFiles()        
If fileListing.Length > 0 Then
            For Each fl As FileInfo In fileListing                ListBox1.Items.Add(fl.FullName)            
Next
        Else
            ListBox1.Items.Add("No files are present in this folder " & dirs.Name)       
 End If
        Application.DoEvents()   
 End Function
End Class

Posted 24-Oct-10 20:32pm

Dale 2012

Updated 25-Oct-10 1:27am

Johnny J.

v3

Add a Solution

Comments

Keith Barrow 25-Oct-10 2:38am

Edits: Removed "PLEASE HELP" from the title, this will stop people from helping, and CAPITALS are considered shouting. Code wrapped in "pre" tags.
I suggest you format your code properly (indent etc. Otherwise, people will just complain about that rather than helping you with you problem, as it is difficult to read poorly formatted code.

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard MacCutchan · Accepted Answer · 2010-10-24T23:24:00

Solution 1

You state that you are not having any problems with this code but then imply that you are. From the rest of your comments it would seem that this is someone else's code that you are trying to adapt in a project of your own. Try being a bit more specific about which parts are not working as you expect. In the line:

Dim direc As New DirectoryInfo("C:\");Put your path here.

it seems fairly clear that this is a comment from the original author that you should replace the string "C:\" with the path that you wish to use as the start of your search.

Posted 24-Oct-10 23:24pm

Richard MacCutchan

Comments

Dalek Dave 25-Oct-10 5:49am

To be fair, don't we all 'adopt, adapt and improve' code snippets we find that may prove useful?

Rod Kemp 25-Oct-10 6:28am

Actually it's my adaptation of the original authors code http://www.codeproject.com/Questions/121074/Calling-a-module-assigning-a-valid-path.aspx
I put that comment in so he would know where to put the path he wanted to check, which obviously didn't work.

Richard MacCutchan 25-Oct-10 6:34am

To DD: Absolutely yes, I do it all the time, but in this case the OP did not mention it with his first post, I had to deduce it from the comments.

To Rod: Can you offer any more advice to the OP?

Tarun.K.S 25-Oct-10 6:42am

thats my code! the function RepeatFiles and RepeatDir was given by me to Dale!

Rod Kemp 25-Oct-10 7:24am

To Richard: Have done.

To Tarun: Yep it sure is, I just changed it a little to work in a WinForm app with some additional changes to suit my preferences and to skip directories that a user doesn't have access to.

Rod Kemp · Accepted Answer · 2010-10-25T01:17:00

OK now I'm leaving the delete functionality out as an exercise for you.
When you click the stop button this code doesn't restart from the place it stopped at if you click on the search button again but from the beginning.

You will need on your form;
A button called searchButton
A button called stopButton
A TextBox called searchPath
A button called searchPathSelect
a Label called currentPath
and a listbox called ListBox1

************** All Code Updated *****************

VB

Imports System.IO
Public Class Form1

    Private Sub searchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles searchButton.Click
        If searchPath.Text <> String.Empty Then
            Dim direc As New DirectoryInfo(searchPath.Text)
            If direc.Exists = False Then
                MsgBox("The path does not exist. Please specify a correct path")
            Else
                searchButton.Enabled = False
                stopButton.Enabled = True
                Application.DoEvents()

                RepeatDir(direc)
                RepeatFiles(direc)

                MessageBox.Show("Scan Complete")
            End If
        Else
            MessageBox.Show("Select a path to begin searching from.")
        End If
    End Sub

    Private Sub stopButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopButton.Click
        searchButton.Enabled = True
        stopButton.Enabled = False
    End Sub

    Private Sub searchPathSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles searchPathSelect.Click
        Dim browserDialog As New FolderBrowserDialog()
        Dim dialogResult As DialogResult = browserDialog.ShowDialog()
        If dialogResult = Windows.Forms.DialogResult.OK Then
            searchPath.Text = browserDialog.SelectedPath
        End If
    End Sub

    Function RepeatDir(ByVal drr As DirectoryInfo)
        Dim directoryListing() As DirectoryInfo = drr.GetDirectories()
        For Each fls As DirectoryInfo In directoryListing
            Try
                If searchButton.Enabled = False Then
                    RepeatDir(fls)
                    RepeatFiles(fls)
                End If
            Catch ex As Exception
                ListBox1.Items.Add(ex.Message)
            End Try
        Next
    End Function

    Function RepeatFiles(ByVal dirs As DirectoryInfo)
        Dim fileListing() As FileInfo = dirs.GetFiles()
        If fileListing.Length > 0 Then
            For Each fl As FileInfo In fileListing
                If searchButton.Enabled = False Then
                    currentPath.Text = fl.FullName
                    Application.DoEvents()
                    Dim currentFileName As String = fl.Name
                    Dim fileExists As Boolean = My.Resources.VirusList.Contains(currentFileName)
                    If fileExists = True Then
                        If MessageBox.Show("File found do you want to delete it?", "File Found", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                            ListBox1.Items.Add("Removing File: " & fl.Name)
                            fl.Delete()
                        End If
                    End If
                End If
            Next
        End If
    End Function
End Class