How to find files in a directory

12 Jul 2006 9:24 PM

graphicsxp

Hi,

How can I open all the files in a directory, which names match a
particular string ?

Say I have a string like 'a file name to find' and I want to find and
open all the files of a given directory, which name contains that
string.

Here is how I open the file of a directory. How can it be modified to
find open only the right files?

Imports System.IO
    Sub Dir(Optional ByVal sDirectory As String = ".")
        Dim sFiles() As String
        Dim i As Integer
        sFiles = Directory.GetFileSystemEntries(sDirectory)
        For i = 0 To sFiles.GetUpperBound(0)
            Console.WriteLine(sFiles(i))
        Next
    End Sub

Thanks

12 Jul 2006 9:33 PM

graphicsxp

I forgot to mention that I know about the pattern argument to
GetFileSystemEntries but it seems to work only if the pattern matches
the exact name + extension of the file.
I want to find files, which name contain the pattern, and I don't care
about hte extension.

Thanks

graphicsxp wrote:
Show quoteHide quote

> Hi,
>
> How can I open all the files in a directory, which names match a
> particular string ?
>
> Say I have a string like 'a file name to find' and I want to find and
> open all the files of a given directory, which name contains that
> string.
>
> Here is how I open the file of a directory. How can it be modified to
> find open only the right files?
>
>   Imports System.IO
>     Sub Dir(Optional ByVal sDirectory As String = ".")
>         Dim sFiles() As String
>         Dim i As Integer
>         sFiles = Directory.GetFileSystemEntries(sDirectory)
>         For i = 0 To sFiles.GetUpperBound(0)
>             Console.WriteLine(sFiles(i))
>         Next
>     End Sub
>
> Thanks

13 Jul 2006 12:36 PM

tomb

I wouldn't redefine the Dir() function - that's already defined in the
VB runtime. If you use the default Dir() function, then you can use it
to continually find the file pattern you are looking for.

T

graphicsxp wrote:

Show quoteHide quote

>I forgot to mention that I know about the pattern argument to
>GetFileSystemEntries but it seems to work only if the pattern matches
>the exact name + extension of the file.
>I want to find files, which name contain the pattern, and I don't care
>about hte extension.
>
>Thanks
>
>graphicsxp wrote:
>
>
>>Hi,
>>
>>How can I open all the files in a directory, which names match a
>>particular string ?
>>
>>Say I have a string like 'a file name to find' and I want to find and
>>open all the files of a given directory, which name contains that
>>string.
>>
>>Here is how I open the file of a directory. How can it be modified to
>>find open only the right files?
>>
>> Imports System.IO
>>    Sub Dir(Optional ByVal sDirectory As String = ".")
>>        Dim sFiles() As String
>>        Dim i As Integer
>>        sFiles = Directory.GetFileSystemEntries(sDirectory)
>>        For i = 0 To sFiles.GetUpperBound(0)
>>            Console.WriteLine(sFiles(i))
>>        Next
>>    End Sub
>>
>>Thanks
>>
>>
>
>
>