revamp filedialog selection name with additional text

excel 2010  vba

using some "filedialog selection" code to select a  text file.

After selecting a text file. I need to change the selected filel name and add the following.
_Text_Modified


So if i selected a text file called   DataFile_2.txt
I want to add the following:
_Text_Modified

So the text file is now   DataFile_2_Text_Modified.txt


Code below:


Dim intChoice As Integer
Dim strPath As String
'only allow the user to select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
'Remove all other filters
Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
'Add a custom filter
Call Application.FileDialog(msoFileDialogOpen).Filters.Add( _
    "Text Files Only", "*.txt")
'make the file dialog visible to the user
intChoice = Application.FileDialog(msoFileDialogOpen).Show
'determine what choice the user made
If intChoice <> 0 Then
    'your code here
    'get the file path selected by the user
    strPath = Application.FileDialog( _
        msoFileDialogOpen).SelectedItems(1)
    'print the file path to sheet 1
    Me.TextBox3.Value = strPath



Thanks
fordraiders
LVL 3
FordraidersAsked:
Who is Participating?
 
als315Commented:
Try this code:
Dim intChoice As Integer
Dim strPath As String
'only allow the user to select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
'Remove all other filters
Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
'Add a custom filter
Call Application.FileDialog(msoFileDialogOpen).Filters.Add( _
    "Text Files Only", "*.txt")
'make the file dialog visible to the user
intChoice = Application.FileDialog(msoFileDialogOpen).Show
'determine what choice the user made
If intChoice <> 0 Then
    'your code here
    'get the file path selected by the user
    strPath = Application.FileDialog( _
        msoFileDialogOpen).SelectedItems(1)
    'print the file path to sheet 1
    strPath = Left(strPath, Len(strPath) - 4) & "_Text_Modified.txt"
    Me.TextBox3.Value = strPath
End If
End Sub

Open in new window

0
 
FordraidersAuthor Commented:
Thanks worked great !
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.