Attachment button..... need some help with a part of my code

[charly.csh]

Hello everyone,



I've created an attachment button and it goes to an specific folder

the only concern I have is that I do not know how to get the "new location path with the file name also included"

See code below:


Dim sourceFolder As String, destinationFolder As String
Dim aFSO As Object
Dim Direccion As String
Dim Destination As String


Direccion = Me.Problemsupporttxt


sourceFolder = Direccion


destinationFolder = "C:\Users\General\Desktop\A3_Problem_Solving_Tool\ " & Me.Code_ID + "\"


Set aFSO = CreateObject("Scripting.FileSystemObject")


aFSO.CopyFile sourceFolder, destinationFolder


it works pretty good!, just I would like to have into a second textbox named "ProblemSupport2txt" (into my form) the new location with also the file name included.... I mean something like this example


Me.ProblemSupport2txt = C:\Users\General\Desktop\A3_Problem_Solving_Tool\A-20151209-001\DocumentName.xlsx"


Thanks for the help!!!!!

[ItsMe]

Me.ProblemSupport2txt = destinationFolder & "DocumentName.xlsx"
or
Me.ProblemSupport2txt = destinationFolder & Mid(Direccion, InStrRev(Direccion, "\") + 1)

[charly.csh]

Thank you!!! the second option was the one!!

[ItsMe]

You are welcome