Counting files in a Dir

How would you go about counting how many files were in a directory?
Thankyou for your time.

You might have a look at this thread:
http://www.visualbasicforum.com/t5050.html

Greets,
Wilbert

I am confused after reading that. I just want to search a directory that I specify for files and add them to a list one by one in vb. That way I can count how many files are in the list and I will have the number I am looking for.

Yes the tutorial is slightly advanced. An easier way to accomplish this
would be to use the Dir statement in a loop, and an array if
you want to add all the files. There is an exmple in your MSDN I think,
and you can also search this site.

I'm not sure on how to use the Dir statement. This is the first time in a long while where I have used anything to do with FileSystems in vb. An example would be great. Thanks for your help so far.

http://www.visualbasicforum.com/showpost.php?postid=474216&postcount=3

Use vbNormal instead of vbDirectory to scan for files.

Dim MyPath As String
Dim MyName As String
MyPath = "E:\Documents and Settings\Michael\My Documents\Visual Basic Programs\Information"
MyName = dir(MyPath, vbDirectory)
Do While MyName <> "" ' Start the loop.
If MyName <> "." And MyName <> ".." Then
If (GetAttr(MyPath & MyName) And vbNormal) = vbNormal Then
MsgBox MyName ' Display entry only if it
End If
End If
MyName = dir
Loop


That is my code. Why doesn't it show me the text files that are in that directory? I am stuck. Thanks for your help so far.

OK hmm that was just an example... a somewhat simpler way to do it:

Dim sFileName As String

'Get all .txt files in the directory
sFileName = Dir$("E:\Documents and Settings\Michael\My Documents\Visual Basic Programs\Information\*.txt", vbNormal)

Do While Len(sFileName) > 0
Debug.Print sFileName
sFileName = Dir$
Loop


Edit: It didn't work because of line 4:

MyName = dir(MyPath, vbDirectory)
'Change to: MyName = dir(MyPath, vbNormal)

I had it as normal and it didn't work so I just left it the way it originally was. Thanks for the help. I wonder what was wrong then?

Not sure. I copy & pasted your code and modified to vbNormal,
changed the path to "c:\", and it worked for me... :confused:

oh well. I got it working now. Its just that I am having problems with line input. How do I just input the first line? Thanks you have been a great help.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vastmlineinputx.asp

So line input should only input the first line? Well if thats so why does my program keep reading through all the lines? I thought thats what i was supposed to do. I just want to read line 1 into a variable and check it and then close that file.

No, Line Input reads a file's contents line by line. If you only
want the first line, use a counter as criteria to stop loop execution
where you read the file in (Do Until EOF(1)...Loop or similar)

Ok I figured out the problem. Now I have forgotten it cos I been doing all this other stuff. Anyway it was real easy and thanks for all the help you gave me.