list files in a folder?

[nareth]

is a way with standard vb?

[vbasicgirl]

sure, the Dir() function.

Dim F As String

F = Dir$("C:\*.*", vbNormal Or vbArchive Or vbReadOnly Or vbSystem Or vbHidden)

Do While LenB(F) > 0
  Debug.Print F
  F = Dir$
Loop

casey.

[nareth]

thanks =)

[nareth]

is there a way to count the files in the directory without this method?

[dglienna]

if you mean WITH this method, then here it is.

Dim F As String
Cnt = 1
F = Dir$("C:\*.*", vbNormal Or vbArchive Or vbReadOnly Or vbSystem Or vbHidden)

Do While LenB(F) > 0
  Debug.Print F
  F = Dir$
  Cnt = Cnt + 1
Loop
Debug.Print Cnt

What files do you want to count, if you don't want to use this method?
You could just count them without displaying them.

[nareth]

with OUT

because im using a dynamic array so it would take long to keep using redim preserve

[Tec-Nico]

What is wrong about using redim preserve? Anyway... If you don't want to do that, then use this:

 Dim strFile As String
 Dim colFiles As Collection
 Set colFiles = New Collection
 
 strFile = Dir$("C:\*.*", vbNormal Or vbArchive Or vbRedOnly Or vbSystem Or vbHidden)
 
 Do While LenB(strFile) > 0
   colFile.Add strFile
   strFile = Dir$
 Loop
 
 '.... Some other code here, you use the files.
 'The count of the number of files will be colFile.Count
 
 Set colFile = Nothing

[nareth]

you dont get it.

when in the loop and i use redim preserve evrytime inside the loop on each file it would be very slow.

[nareth]

API?

anyone?

[randem]

nareth,

Come on, think...


Only redim preserve every one hundreth time or so.

[nareth]

im asking something

[randem]

nareth,

Not meaning to be harsh. Just attempting to get you to see the easier way other than doing something everytime.

[nareth]

look there could be 1000 files in this folder or even one million. i just need the fastest way if you like it or not.

[nareth]

is there anyone whos willing to HELP instead of telling me what todo. i know what im doing

[randem]

because im using a dynamic array so it would take long to keep using redim preserve

It was your idea.

?????

[nareth]

It was your idea.

?????

please delete this post im getting pissed now

[Arachnid13]

dude you need to chill, he was only trying to help out. if your not going to accept other peoples suggestions when you ask a question then i think you need to reconsider posting in the first place

[RhinoBull]

please delete this post im getting pissed now

You should really chill off, man. When you feel like doing something then look at the sample by Randy Birch that demonstrates how to use FindFirstFile(), FindNextFile() api functions.

[kebo]

is there a way to count the files in the directory without this method?

Private Sub Form_Load()
Dim fso, f

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("c:\")
Set fc = f.Files
Debug.Print fc.Count

End Sub

is there anyone whos willing to HELP instead of telling me what todo. i know what im doing

I got your back on this nareth. You ask a question and should get an answer, not question about why you need to do it or possibly better ways to do it. Unless you explain your project fully, none here can give you a better way because they can't see the big picture. But I think that most ppl here, are genuinely trying to help, and sometimes a little patience is cool.
kevin

[nareth]

thank you kebo, you are the only person along with vbasicgirl that really helped me out =)

and its not that i got pissed because he tried to help me. i see him posting rubbish all time -.-

[RhinoBull]

Just out of curiosity, nareth: did you bother looking at the sample project from that link I posted? The thing is that FSO is nothing more than Windows API wrapper and is noticeably slower that the source plus you have no control over results it's outputting. It's easy enough to use (no doubt about that) but why not learn how to use the source itself and have full control over entire process ???

Same thing applies to CommonDialog, SysInfo and some other controls available in VB ...

Best regards.

[nareth]

the api would be the same as:

Dim F As String
Cnt = 1
F = Dir$("C:\*.*", vbNormal Or vbArchive Or vbReadOnly Or vbSystem Or vbHidden)

Do While LenB(F) > 0
Debug.Print F
F = Dir$
Cnt = Cnt + 1
Loop
Debug.Print Cnt

[Wokawidget]

Nareth, Tec-Nico gave you a perfect example using a collection of what you needed to use.
There is NO NEED what so ever to start getting nasty with people who are trying to help you. If you are using a dynamic array, then you are doing it "wrong" and there is much better coding, like people suggested!!!

You clearly do NOT know what you're doing if your using dynamic arrays. There are much better methods.

Maybe they are essential to your app and maybe it's something that you cannot change. If this is the case then explain so. don't get nasty with users!

People are ONLY trying to help you, can you not see that. Plus you really need to start giving more details in your responses.

Woka

[nareth]

woka you dont get the situation

i just asked how i could get the file count a DIFRENT way and poeple started to telling me what todo i only asked a simple question.

im FORCED to do it with a dynamic array for speed issues.
guess i would loop trough files first to count and then redim the dynamic array and laod the files

[Wokawidget]

Well explain that then clearly.
Why not use a collection though?
You can load the files in a collection, and then do:

colFiles.Count

Or you can do what Random suggested which would be:

Dim strFile As String
Dim strFiles() As String
Dim lngIndex As Long

   strFile = Dir$("C:\*.*", vbNormal Or vbArchive Or vbReadOnly Or vbSystem Or vbHidden)
   ReDim strFile(0) As String
   lngIndex = -1
   Do While LenB(strFile) > 0
     lngIndex = lngIndex + 1
     If lngIndex = UBound(strFiles) Then
        ReDim Preserve strFiles(lngIndex+500) As String
     End If
     strFiles(lngIndex)=strFile
     strFile = Dir$
   Loop
   ReDim Preserve strFiles(lngIndex) As String

This loads them dynamically. But it is quick as it redim preserves 500 at a time, and not for EVERY file.

This is what you should use, but you had a go at people suggesting it.

Woka

[nareth]

it would make memory overhead as im using a pretty big module class

isnt it faster to first count hte files with the loop and then redim and then loop again?

[Wokawidget]

it would make memory overhead as im using a pretty big module class

isnt it faster to first count hte files with the loop and then redim and then loop again?

No, it wouldn't. Try it. I don't think anyways.
What memory overhead???
A collection will use slightly more memory that an array, but it has many other benefits.

Woka

[Wokawidget]

Also, using API functions to get the filenames, instead of Dir(), is WAY faster. Dunno what they are though...do a search on this forum for "find and fiels and API"

WOOF

[RhinoBull]

the api would be the same as:

Dim F As String
Cnt = 1
F = Dir$("C:\*.*", vbNormal Or vbArchive Or vbReadOnly Or vbSystem Or vbHidden)

Do While LenB(F) > 0
Debug.Print F
F = Dir$
Cnt = Cnt + 1
Loop
Debug.Print Cnt

That's an interesting opinion ... Just wonder: do you completely understand, nareth, the difference between using Windows Source (aka Windows API functions) and functions built into VB IDE ? If not then you should ask for a help - there are plenty of resources here and out there.

Cheers.

[nareth]

i know more than you think rhino =)

[RhinoBull]

i know more than you think rhino =)

And I have no doubt about it ...

[vbcj]

banning me is the easy way out.

[David.Poundall]

Huh - Is everyone getting banned or what ??

[BruceG]

Some other ideas I didn't see mentioned. Either way, you can get the file count and ReDim your array once based on that, rather than using ReDim Preserve.
(1) Use the FSO and the Count method of the Files collection for the given Folder.
(2) Use the FileListBox (Visible = False, if desired), and use the ListCount property.

[RobertXYZ]

It is with much interest that I tried and studied your code.Since I try
to understand your code my question is :

What means LenB ? When I replace the B by any other letter
I obtain an error message.
My VB6 books do not mention a Len(B) function.
Can you explain ?

Thanks

Robert XYZ

sure, the Dir() function.

Dim F As String

F = Dir$("C:\*.*", vbNormal Or vbArchive Or vbReadOnly Or vbSystem Or vbHidden)

Do While LenB(F) > 0
  Debug.Print F
  F = Dir$
Loop

casey.

[RobDog888]

LenB() is a function that gets the length of the variable that is passed to it
in bytes instead of characters. It is faster then Len. To get the syntax press
F2 and search for LenB or hit F1 for the definition.

[RobertXYZ]

Thanks for the explanation.

RobertXYZ

It is with much interest that I tried and studied your code.Since I try
to understand your code my question is :

What means LenB ? When I replace the B by any other letter
I obtain an error message.
My VB6 books do not mention a Len(B) function.
Can you explain ?

Thanks

Robert XYZ