[asbo]

hey --

I'm trying to get all of the files in directory 'X' with the extension 'Y', and then have the names of those file available for manipulation, maybe in a string array? Can someone help me? I've looked at the documentation for the FSO, but couldn't pick anything out of it.

http://msdn.microsoft.com/library/de...asp?frame=true


Thanks,
asbo

[MustBNuts]

Your question seems a bit broad. There are many steps in the process you've described. What part of it are you getting hung up with?

MBN

[Mosaic1]

Did you want to get the files in the top of the directory only Or were you trying to recursively search all the subdirectories......to the end?

[asbo]

hey --

Sorrry, I'm trying to get the files in the top directory, not any of the subdiectories.

The part that I'm not getting is how one might go about searching a directory with a wildcard, or at all...



asbo

[coderitr]

You can use a file list box to enumerate the files in a given directory. The control contains path and pattern properties that when set, automatically load the list of files. You can also set the sort property to have the list sorted automatically. You can always have the control moved past the visible dimensions of your form or just set the visible property to false if you don't want the user to see it.

If you don't want the overhead of the file list box, check out the Win32FindFirstFile( ) and Win32FindNextFile( ) in the Win32 API.

[Mosaic1]

This will create an array of the filenames and show in a multilined text box with a scrollbar. I also added the index to the array for each item. You could use the List is you like. The textbox is there for you to check your work. It depends on what you want to do.

Private Sub Command1_Click()
Dim i As Integer, sfile$, arrFiles() As String
sfile = Dir("C:\Windows\*.txt")
Do Until sfile = ""
ReDim Preserve arrFiles(i)
arrFiles(i) = sfile
i = i + 1
sfile = Dir
Loop

For i = LBound(arrFiles) To UBound(arrFiles)
msg = msg & i & " " & arrFiles(i) & vbCrLf
Next
Text1 = msg

End Sub

[asbo]

hey --

Thanks for the help I'll test both out and see which fits what I'm trying to do.

Thanks again!
asbo