Hi Experts,
I want to access my local drive folder and displayed on the screen with the command button in Access, previously i had the below script for Excel to achieve that, but i am not able to replicate this in Acess , need support on this.
Sub sbOpeningAFolder16()
Dim FSO
Dim sFolder As String
sFolder = "C:\Users\aan\Documents\Aan\Performance " 'You can specify your Folder which you wants to Open
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(sFolder) Then
MsgBox "Specified Folder Not Found", vbInformation, "Folder Not Found!"
ElseIf FSO.FolderExists(sFolder) Then
Call Shell("explorer.exe " & sFolder, vbNormalFocus)
End If
End Sub
Looking forward to prompting a response.
I want to access my local drive folder and displayed on the screen with the command button in Access, previously i had the below script for Excel to achieve that, but i am not able to replicate this in Acess , need support on this.
Sub sbOpeningAFolder16()
Dim FSO
Dim sFolder As String
sFolder = "C:\Users\aan\Documents\Aan\Performance " 'You can specify your Folder which you wants to Open
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists(sFolder) Then
MsgBox "Specified Folder Not Found", vbInformation, "Folder Not Found!"
ElseIf FSO.FolderExists(sFolder) Then
Call Shell("explorer.exe " & sFolder, vbNormalFocus)
End If
End Sub
Looking forward to prompting a response.