How to filter by File Type ?

[Rob]

I want to copy files from one folder to another... but only if it is a
".txt" file...

Below should work, but how would you filter on ".txt" files only ?

Thanks !

Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
' Process the list of files found in the directory.
Dim fileName As String
For Each fileName In fileEntries
' Do the File.copy here

Next fileName

[Kerry Moorman]

Rob,

Directory.GetFi les has an overloaded version that lets you specify the
search criteria, such as "*.txt".

Kerry Moorman
"Rob" wrote:

I want to copy files from one folder to another... but only if it is a
".txt" file...

Below should work, but how would you filter on ".txt" files only ?

Thanks !

Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
' Process the list of files found in the directory.
Dim fileName As String
For Each fileName In fileEntries
' Do the File.copy here

Next fileName

[Rob]

The code below is returning the complete path of the file as well as the
filename.... Any way to return only the filename without the path ?

Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
' Process the list of files found in the directory.
Dim fileName As String
For Each fileName In fileEntries
' Do the File.copy here

Next fileName

"Kerry Moorman" <Ke**********@d iscussions.micr osoft.com> wrote in message
news:66******** *************** ***********@mic rosoft.com...

Rob,

Directory.GetFi les has an overloaded version that lets you specify the
search criteria, such as "*.txt".

Kerry Moorman
"Rob" wrote:

I want to copy files from one folder to another... but only if it is a
".txt" file...

Below should work, but how would you filter on ".txt" files only ?

Thanks !

Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
' Process the list of files found in the directory.
Dim fileName As String
For Each fileName In fileEntries
' Do the File.copy here

Next fileName

[Kerry Moorman]

Rob,

You could use the Path class's GetFileName method.

Kerry Moorman
"Rob" wrote:

The code below is returning the complete path of the file as well as the
filename.... Any way to return only the filename without the path ?

Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
' Process the list of files found in the directory.
Dim fileName As String
For Each fileName In fileEntries
' Do the File.copy here

Next fileName

"Kerry Moorman" <Ke**********@d iscussions.micr osoft.com> wrote in message
news:66******** *************** ***********@mic rosoft.com...

Rob,

Directory.GetFi les has an overloaded version that lets you specify the
search criteria, such as "*.txt".

Kerry Moorman
"Rob" wrote:

I want to copy files from one folder to another... but only if it is a
".txt" file...

Below should work, but how would you filter on ".txt" files only ?

Thanks !

Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
' Process the list of files found in the directory.
Dim fileName As String
For Each fileName In fileEntries
' Do the File.copy here

Next fileName

[Rob]

Kerry,

Almost there... just one more piece... the line with leading ***** below
filtering on ".txt" in a loop ?

Thanks,
Rob

Dim fileEntries As String() = Directory.GetFi les(strEODFolde rSrc)

Dim fSource As String

Dim fDest As String

' Process the list of files found in the directory.

Dim fileName As String

For Each fileName In fileEntries

fSource = strEODFolderSrc & Path.GetFileNam e(fileName)

fDest = strEODFolderDes t & Path.GetFileNam e(fileName)

' Only show text files ????

'******** If the file extention of Path.GetFileNam e(fileName) Then

MsgBox("Source: " & fSource)

MsgBox("Dest:" & fDest)

End If

Next fileName

"Kerry Moorman" <Ke**********@d iscussions.micr osoft.com> wrote in message
news:D6******** *************** ***********@mic rosoft.com...

Rob,

You could use the Path class's GetFileName method.

Kerry Moorman
"Rob" wrote:

The code below is returning the complete path of the file as well as the
filename.... Any way to return only the filename without the path ?

Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
' Process the list of files found in the directory.
Dim fileName As String
For Each fileName In fileEntries
' Do the File.copy here

Next fileName

"Kerry Moorman" <Ke**********@d iscussions.micr osoft.com> wrote in message
news:66******** *************** ***********@mic rosoft.com...

> Rob,
>
> Directory.GetFi les has an overloaded version that lets you specify the
> search criteria, such as "*.txt".
>
> Kerry Moorman
>
>
> "Rob" wrote:
>
>> I want to copy files from one folder to another... but only if it is a
>> ".txt" file...
>>
>> Below should work, but how would you filter on ".txt" files only ?
>>
>> Thanks !
>>
>> Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
>> ' Process the list of files found in the directory.
>> Dim fileName As String
>> For Each fileName In fileEntries
>> ' Do the File.copy here
>>
>> Next fileName
>>
>>
>>

[Kerry Moorman]

Rob,

You could use Path.GetExtensi on (fileName) to get the file's extension.

But as I mentioned in my first reply, you could also use:

Dim fileEntries As String() = Directory.GetFi les(strEODFolde rSrc, "*.txt")

to just retrieve and process files with a ".txt" extension.

Kerry Moorman
"Rob" wrote:

Kerry,

Almost there... just one more piece... the line with leading ***** below
filtering on ".txt" in a loop ?

Thanks,
Rob

Dim fileEntries As String() = Directory.GetFi les(strEODFolde rSrc)

Dim fSource As String

Dim fDest As String

' Process the list of files found in the directory.

Dim fileName As String

For Each fileName In fileEntries

fSource = strEODFolderSrc & Path.GetFileNam e(fileName)

fDest = strEODFolderDes t & Path.GetFileNam e(fileName)

' Only show text files ????

'******** If the file extention of Path.GetFileNam e(fileName) Then

MsgBox("Source: " & fSource)

MsgBox("Dest:" & fDest)

End If

Next fileName

"Kerry Moorman" <Ke**********@d iscussions.micr osoft.com> wrote in message
news:D6******** *************** ***********@mic rosoft.com...

Rob,

You could use the Path class's GetFileName method.

Kerry Moorman
"Rob" wrote:

The code below is returning the complete path of the file as well as the
filename.... Any way to return only the filename without the path ?

Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
' Process the list of files found in the directory.
Dim fileName As String
For Each fileName In fileEntries
' Do the File.copy here

Next fileName

"Kerry Moorman" <Ke**********@d iscussions.micr osoft.com> wrote in message
news:66******** *************** ***********@mic rosoft.com...
> Rob,
>
> Directory.GetFi les has an overloaded version that lets you specify the
> search criteria, such as "*.txt".
>
> Kerry Moorman
>
>
> "Rob" wrote:
>
>> I want to copy files from one folder to another... but only if it is a
>> ".txt" file...
>>
>> Below should work, but how would you filter on ".txt" files only ?
>>
>> Thanks !
>>
>> Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
>> ' Process the list of files found in the directory.
>> Dim fileName As String
>> For Each fileName In fileEntries
>> ' Do the File.copy here
>>
>> Next fileName
>>
>>
>>

[Rob]

Thanks very much Kerry !
"Kerry Moorman" <Ke**********@d iscussions.micr osoft.com> wrote in message
news:5C******** *************** ***********@mic rosoft.com...

Rob,

You could use Path.GetExtensi on (fileName) to get the file's extension.

But as I mentioned in my first reply, you could also use:

Dim fileEntries As String() = Directory.GetFi les(strEODFolde rSrc,
"*.txt")

to just retrieve and process files with a ".txt" extension.

Kerry Moorman
"Rob" wrote:

Kerry,

Almost there... just one more piece... the line with leading ***** below
filtering on ".txt" in a loop ?

Thanks,
Rob

Dim fileEntries As String() = Directory.GetFi les(strEODFolde rSrc)

Dim fSource As String

Dim fDest As String

' Process the list of files found in the directory.

Dim fileName As String

For Each fileName In fileEntries

fSource = strEODFolderSrc & Path.GetFileNam e(fileName)

fDest = strEODFolderDes t & Path.GetFileNam e(fileName)

' Only show text files ????

'******** If the file extention of Path.GetFileNam e(fileName) Then

MsgBox("Source: " & fSource)

MsgBox("Dest:" & fDest)

End If

Next fileName

"Kerry Moorman" <Ke**********@d iscussions.micr osoft.com> wrote in message
news:D6******** *************** ***********@mic rosoft.com...

> Rob,
>
> You could use the Path class's GetFileName method.
>
> Kerry Moorman
>
>
> "Rob" wrote:
>
>> The code below is returning the complete path of the file as well as
>> the
>> filename.... Any way to return only the filename without the path ?
>>
>> Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
>> ' Process the list of files found in the directory.
>> Dim fileName As String
>> For Each fileName In fileEntries
>> ' Do the File.copy here
>>
>> Next fileName
>>
>>
>>
>> "Kerry Moorman" <Ke**********@d iscussions.micr osoft.com> wrote in
>> message
>> news:66******** *************** ***********@mic rosoft.com...
>> > Rob,
>> >
>> > Directory.GetFi les has an overloaded version that lets you specify
>> > the
>> > search criteria, such as "*.txt".
>> >
>> > Kerry Moorman
>> >
>> >
>> > "Rob" wrote:
>> >
>> >> I want to copy files from one folder to another... but only if it
>> >> is a
>> >> ".txt" file...
>> >>
>> >> Below should work, but how would you filter on ".txt" files only ?
>> >>
>> >> Thanks !
>> >>
>> >> Dim fileEntries As String() = Directory.GetFi les(targetDirec tory)
>> >> ' Process the list of files found in the directory.
>> >> Dim fileName As String
>> >> For Each fileName In fileEntries
>> >> ' Do the File.copy here
>> >>
>> >> Next fileName
>> >>
>> >>
>> >>
>>
>>
>>