How do I get File Name and Extension only from OpenFileDialog

Question

0.00/5 (No votes)

See more:

Hello everyone (and Happy New Year to all)

I am using a basic piece of code to select a file but I am only able to get the full path (which I need) but can't seem to find a way to extract the file name and extension only

VB

Dim ofd As New OpenFileDialog
Dim dir As String

dir = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

ofd.Filter = "All Files(*.*)|*.*|All files (*.*)|*.*"

ofd.FilterIndex = 2
ofd.InitialDirectory = dir

If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
     MsgBox(ofd.FileName)
End If

The MsgBox shows the full path with file name and extension.

Could you please advise how I can get only the file name and extension.

Many thanks

Posted 6-Jan-14 2:36am

Darrell de Wet

Add a Solution

2 solutions

Solution 1

Please visit the following links:

Get file name from a path string in c-sharp[^]
Get the file name[^]

VB

Dim ofd As New OpenFileDialog
  Dim dir As String

  dir = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

  ofd.Filter = "All Files(*.*)|*.*|All files (*.*)|*.*"

  ofd.FilterIndex = 2
  ofd.InitialDirectory = dir

  If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
       MsgBox(Path.GetFileName(ofd.FileName))
  End If

Posted 6-Jan-14 2:48am

Sibasisjena

Updated 6-Jan-14 2:56am

v2

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)

OriginalGriff · Accepted Answer · 2014-01-06T02:50:00

Solution 2

Try:

VB

If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
     MsgBox(Path.GetFileName(ofd.FileName))
End If

Posted 6-Jan-14 2:50am

OriginalGriff

Comments

Darrell de Wet 6-Jan-14 9:21am

Thank you.

OriginalGriff 6-Jan-14 9:30am

You're welcome!