דא לייג איך די קאיד פין די באטן
קאוד: וועל אויס אלע
Private Sub cmdView_Click()
Dim strPath As String
Dim strFull As String
strPath = CurrentProject.Path & "\Scans\" & DLookup("OrgName", "tblOrganizations", "ID=" & Me.OrgID)
'Shell "C:\WINDOWS\explorer.exe """ & strPath & "", vbNormalFocus
Call Shell("c:\Windows\explorer.exe ""search-ms:displayname=Search%20Results&crumb=System.Generic.String%3A" & _
Me.Phone & "&crumb=location:" & strPath & "%""", vbNormalFocus)
End Sub