change file location
Can ya help me?
this is the attachment part of my code
Private Sub cmdAttachment_Click()
Dim mystring As String
Dim strFilePath As String
Dim sFileName As String
Dim strCommonPath As String
On Error GoTo DialogError
With CommonDialog1
.CancelError = True
.Filter = "Text Files (*.txt)/*.txt/Doc Files (*.doc)/*.doc/All Files(*.*)/*.*"
.FilterIndex = 1
.DialogTitle = "Select a file to attach"
.ShowOpen
MsgBox "You have selected " & .FileName
strFilePath = Trim$(CommonDialog1.FileName)
strCommonPath = "F:\New\"
mystring = strCommonPath & Dir(strFilePath, vbNormal)
MsgBox mystring
'''' mystring = Trim$(CommonDialog1.FileName)
''''
txtAttach.Text = mystring
m_recRMA!Attachment = mystring
m_recRMA.Update
End With
DialogError:
End Sub

