Filecopy Question, how can I save the extension of the file?

[g4tv4life]

Hey everyone, I have a file attacher system here that selects a file (using dialog), renames it then filecopys it to a folder.
my problem is, how do i extract the file extension from the .selected items, so that any filetype can be attached?



here's me current code:
any ideas?

Private Sub Command183_Click()


   Dim fDialog As Office.FileDialog
   Set fd = Application.FileDialog(msoFileDialogFilePicker)
   Dim varFile As Variant






   ' Set up the File Dialog. '
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    fd.InitialFileName = Application.CurrentProject.Path
   With fDialog


      ' Allow user to make multiple selections in dialog box '
      .AllowMultiSelect = False


      ' Set the title of the dialog box. '
      .Title = "Please select a Invoice to Attach"


      ' Clear out the current filters, and add our own.'
      .Filters.Clear
      .Filters.Add "All Files", "*.*"


      ' Show the dialog box. If the .Show method returns True, the '
      ' user picked at least one file. If the .Show method returns '
      ' False, the user clicked Cancel. '
      If .Show = True Then
      ' This section takes the selected image and copy's it to the generated path'
      ' the string takes the file location, navigates to the image folder, uses the combo box selection to decide the file category, then uses the name from the filedialog to finish the path'
     FileCopy .SelectedItems(1), GetDBPath() & "\Invoices\" & Me.[ID Number].Value & " " & Me.Asset.Value
  Me.Invoice.Value = GetDBPath() & "\Invoices\" & Me.[ID Number].Value & " " & Me.Asset.Value
       Else
      'this code saves it as its original name- saved for archive purposes in case above doesnt work
       'FileCopy .SelectedItems(1), GetDBPath() & "\Invoices\" & Dir(Trim(.SelectedItems.Item(1)))
 ' Me.Invoice.Value = Dir(Trim(.SelectedItems.Item(1)))
      End If
   End With
If IsNull(Me.Text115) Then
Me.Image206.Picture = GetDBPath() & "Images\Other\NoInvoice.jpg"
Else
Me.Image206.Picture = GetDBPath() & "Images\Other\YesInvoice.jpg"
End If
Me.Text182.Requery
End Sub

[drexasaurus]

The path seems to be selected via the line ".SelectedItems(1)". You could store this in a variable and do more work:
Dim exten as String, dotInPath As Integer, path As String
path = .SelectedItems(1)
dotInPath = InStrRev(path, ".")
exten = right(path, len(path) - dotInPath)
----
This would get how many characters into the string the final period appears, and do math against the length of the entire path to pull out just the extension. From there, you could use it however you needed in that variable.
Note that some extensions get kind of funky and filenames and directories can have periods in them, but in practice getting that last period character should work out.