Rob_Jones101
Member
- Local time
- Today, 17:50
- Joined
- Aug 8, 2019
- Messages
- 41
Hi
I have a form with a button to open a specific file in a folder. I have recently changed computers and now this wont work. It only works for new folders created and not the ones that were on the old computer.
Private Sub Btnopenfolder_Click()
On Error GoTo Btnopenfolder_Click_Error
Const strParent = "C:\Users\RobertJones\Desktop\Quotes\ "
Dim strQuotenumber As String
Dim Strsite As String
Dim StrprojDesc As String
Dim strFolder As String
Dim Strspace As String
Strspace = Space(1) & "- "
strQuotenumber = Me.QuoteNumber
Strsite = Me.Site
StrprojDesc = Me.Project_Description
strFolder = strParent & strQuotenumber & Strspace & Strsite & Strspace & StrprojDesc
Application.FollowHyperlink "C:\Users\RobertJones\Desktop\Quotes\ " & strFolder
Btnopenfolder_Click_Exit:
Exit Sub
Btnopenfolder_Click_Error:
Select Case Err
Case Else
MsgBox Err & "-" & Error$, vbCritical + vbOKOnly, "Error In btnOpenFolder_Click"
Resume Btnopenfolder_Click_Exit
End Select
End Sub
It keeps saying Error File Not Recognised.
Any help would be appreciated.
I have a form with a button to open a specific file in a folder. I have recently changed computers and now this wont work. It only works for new folders created and not the ones that were on the old computer.
Private Sub Btnopenfolder_Click()
On Error GoTo Btnopenfolder_Click_Error
Const strParent = "C:\Users\RobertJones\Desktop\Quotes\ "
Dim strQuotenumber As String
Dim Strsite As String
Dim StrprojDesc As String
Dim strFolder As String
Dim Strspace As String
Strspace = Space(1) & "- "
strQuotenumber = Me.QuoteNumber
Strsite = Me.Site
StrprojDesc = Me.Project_Description
strFolder = strParent & strQuotenumber & Strspace & Strsite & Strspace & StrprojDesc
Application.FollowHyperlink "C:\Users\RobertJones\Desktop\Quotes\ " & strFolder
Btnopenfolder_Click_Exit:
Exit Sub
Btnopenfolder_Click_Error:
Select Case Err
Case Else
MsgBox Err & "-" & Error$, vbCritical + vbOKOnly, "Error In btnOpenFolder_Click"
Resume Btnopenfolder_Click_Exit
End Select
End Sub
It keeps saying Error File Not Recognised.
Any help would be appreciated.