opening .doc and .rtf file alone

Question

0.00/5 (No votes)

See more:

In the below coding all the files in the selected folder are displayed, but I only want to display the .doc and .rtf files in the ListBox, kindly guide me the coding part ~~, its urgent please.................~~

VB

Imports System.IO
Imports System.Text
Imports System.Data
Imports System.Windows.Forms

Public Class Form1
    Dim flb As New System.Windows.Forms.FolderBrowserDialog
    Dim fod As OpenFileDialog = New OpenFileDialog()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        flb.RootFolder = Environment.SpecialFolder.MyComputer
        flb.ShowNewFolderButton = False
        Dim result As DialogResult = flb.ShowDialog
        
        If (result = DialogResult.OK) Then
            ListBox1.Items.Clear()
            TextBox1.Text = flb.SelectedPath
            For Each filename In Directory.GetFiles(flb.SelectedPath)
             ListBox1.Items.Add(filename)
            Next
        End If

    End Sub
End Class

Posted 11-Nov-11 2:37am

ANANTH P

Updated 11-Nov-11 2:41am

Reiss

v2

Add a Solution

Comments

Maciej Los 11-Nov-11 8:52am

Inside the For Each ... Next loop you need to check the extension of filename. Try to do it yourself!

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Reiss · Answer 1 · 2011-11-11T02:49:00

Solution 1

Amend

VB

For Each filename In Directory.GetFiles(flb.SelectedPath)

to be

VB

For Each filename In Directory.GetFiles(flb.SelectedPath,"*.doc").Union(Directory.GetFiles(flb.SelectedPath, "*.rtf"))

Posted 11-Nov-11 2:49am

Reiss

Wayne Gaylard · Answer 2 · 2011-11-11T02:50:00

You can filtre out the filenames that are .doc or .rtf with LinQ like this:-

VB

Using flb As New FolderBrowserDialog
           If flb.ShowDialog() = Windows.Forms.DialogResult.OK Then
               ListBox1.Items.Clear()
               TextBox1.Text = flb.SelectedPath
               Dim fileNames As String() = Directory.GetFiles(flb.SelectedPath)
               Dim selectedFiles As String() = From fileName In fileNames Where fileName.EndsWith(".rtf") Or fileName.EndsWith(".doc") Select fileName
               For Each filename In selectedFiles
                   ListBox1.Items.Add(filename)
               Next
           End If
       End Using

Hope this helps

koolprasad2003 · Answer 3 · 2011-11-11T02:52:00

Solution 3

use the filter to get only .DOC and .RTF files

dim files as string() = System.IO.Directory.GetFiles(path, "*.doc;*.rtf", SearchOption.AllDirectories)

Posted 11-Nov-11 2:52am

koolprasad2003