How do I find the number of files in a drive in Visual Basic 2008+ ?

Question

0.00/5 (No votes)

See more:

How can I detect the number of temporary files in the hard drive in Visual Basic? I'm using this code, and it's not working:

VB

Dim drive As String = Path.GetPathRoot(System.Environment.ExpandEnvironmentVariables("%SystemDrive%"))

Dim counter3 As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
counter3 = My.Computer.FileSystem.GetFiles(drive, FileIO.SearchOption.SearchAllSubDirectories, "*.tmp")
label1.text = (CStr(counter3.Count))

Posted 7-Jul-10 11:45am

drummerboy0511

Add a Solution

Comments

Kythen 7-Jul-10 17:56pm

How is it not working? What result are you getting and what are you expecting to see?

drummerboy0511 7-Jul-10 17:58pm

It's giving me "0" and I'm expecting to see the total number of temporary files from my hard drive. And I know for a fact (by looking in my various folders) that there are more than 0 files with the "*.tmp" extension.

4 solutions

Solution 2

Have you stepped through the code ? Did you expect GetFiles to search subdirectories ? It does not. You need to write a recursive function for that.

Posted 7-Jul-10 12:44pm

Christian Graus

Comments

drummerboy0511 8-Jul-10 9:38am

Get files DOES search subdirectories, with the code that I put in.

drummerboy0511 8-Jul-10 11:56am

i have personally used it many times, successfully.

drummerboy0511 8-Jul-10 16:43pm

Reason for my vote of 1
...

Solution 1

When I test your code I find it searching the directory my executable is in; not the system root.

I get valid results if I change this line...

counter3 = My.Computer.FileSystem.GetFiles(drive, FileIO.SearchOption.SearchAllSubDirectories, "*.tmp")

To this...

counter3 = My.Computer.FileSystem.GetFiles(My.Computer.FileSystem.SpecialDirectories.Temp, FileIO.SearchOption.SearchAllSubDirectories, "*.tmp")

Posted 7-Jul-10 12:44pm

idenizeni

Comments

drummerboy0511 8-Jul-10 9:21am

See, that's the thing, I don't want it to search just that folder. I want it to search the whole drive.

And, for those worried about lag issues, I'm going to do it asynchronously.

idenizeni 8-Jul-10 11:03am

I understand, I was just posting that code to help show where the issue might be.

drummerboy0511 8-Jul-10 11:56am

Reason for my vote of 1
Not what I was looking for...

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)

idenizeni · Accepted Answer · 2010-07-08T06:11:00

Solution 4

Ok, I found your solution, your drive string contains 'C:' you need to append the '\' to it.

VB

Dim drive As String = Path.GetPathRoot(System.Environment.ExpandEnvironmentVariables("%SystemDrive%")) & "\"
Dim counter3 As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
counter3 = My.Computer.FileSystem.GetFiles(drive, FileIO.SearchOption.SearchAllSubDirectories, "*.tmp")
Label1.Text = (CStr(counter3.Count))

Posted 8-Jul-10 6:11am

idenizeni

Comments

William Winner 8-Jul-10 12:30pm

Actually, it works just fine without it. When I ran the code as the person had it, I ended up with an accessibility issue. It crapped out after like 5 minutes saying that a folder was inaccessible. So, at least for me, there was a security issue.

But, I just tried
Dim counter3 As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
counter3 = My.Computer.FileSystem.GetFiles("C:", FileIO.SearchOption.SearchTopLevelOnly, "*.shp")

MessageBox.Show(counter3.Count)

and it worked fine for me.

idenizeni 8-Jul-10 12:40pm

Interesting, when I run the poster's version I end up searching the directory my project's exe is in. When I add the slash at the end I search the 'C:' directory. I'm using XP what OS are you using?

I too ran into a permission issue when it tried to access certain directories.

drummerboy0511 8-Jul-10 13:55pm

RLH68 - I'm using XP too... with the permission issues, run the app as an administrator. That's the best I can come up with there. What version are you using, William Winner?

drummerboy0511 8-Jul-10 13:56pm

I do have a piece of code where I can detect the operating system (XP, Vista, or 7) and then run a different piece of code for each system. Perhaps I can use that in this case.

idenizeni 8-Jul-10 14:20pm

Just append the slash to your drive variable. I don't think you need to worry about the OS. I only asked about the OS becuase I thought it may explain why William Winner had different results than me.

Again, with the slash appended I get the correct results everytime, without the slash appened the process ends up searching the current application's dirrectory and not the C: drive.

drummerboy0511 8-Jul-10 16:42pm

All right, @RLH68, I will look into it when I get to the development computer...

alrosan · Accepted Answer · 2010-07-07T20:14:00

Module Module1
    Dim cnt As Integer
    Sub Main()
        cnt = 0
        Console.WriteLine(CountFiles())
        Console.Read()
    End Sub
    Function CountFiles(Optional ByVal dri As String = "C:\", Optional ByVal subDir As Boolean = True) As Integer
        On Error Resume Next
        For Each fo As String In System.IO.Directory.GetDirectories(dri)
            If subDir Then
                CountFiles(fo, True)
            End If
        Next
        For Each fi As String In System.IO.Directory.GetFiles(dri)
            cnt += 1
        Next
        Return cnt
    End Function
End Module

How do I find the number of files in a drive in Visual Basic 2008+ ?

4 solutions

Solution 4

Solution 3

Solution 2

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us