Problems with geting path from a file using file dialogue

[Guest]

I am using MS Access 2002 (10.4302.4219) SP2 but guess this problem is not
Limited to access VBA

I am trying to get the path of a file with the office open or the file picker
dialogue using VBA. The file is a lotus notes database shortcut .shb
extension. The file I am trying to get the path from launches fine when
double clicking from the desktop but when trying to get the path to the file
via the dialogue box either by double clicking the file in the dialogue box
or single clicking and pressing the open button the following message is
displayed. "Cannot resolve this link this file may not be a shortcut." Can
any one tell me a way to disable the validation in the dialogue box as all I
want is the path. The code I use is OK for all of the common file types
*.doc, *.exl ect. The code below is a sample from the kb which also has the
same problem as my bit of code any help with this problem would be apreciated

Private Sub cmdFileDialog_Click()
'Requires reference to Microsoft Office 10.0 Object Library.
Dim fDialog As Office.FileDialog
Dim varFile As Variant

'Clear listbox contents.
' Me.FileList.RowSource = ""

'Set up the File Dialog.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
'Allow user to make multiple selections in dialog box
.AllowMultiSelect = True

'Set the title of the dialog box.
.Title = "Please select one or more files"

'Clear out the current filters, and add our own.
.Filters.Clear
.Filters.Add "Access Databases", "*.MDB"
.Filters.Add "Access Projects", "*.ADP"
.Filters.Add "All Files", "*.*"

'Show the dialog box. If the .Show method returns True, the
'user picked at least one file. If the .Show method returns
'False, the user clicked Cancel.
If .Show = True Then
'Loop through each file selected and add it to our list box.
For Each varFile In .SelectedItems
'Me.FileList.AddItem varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
End Sub

 

[John Nurick]

Hi Ray,

The .shb extension makes me suspect that this is not an ordinary Windows
shortcut (these have a .lnk extension, though it's usually hidden) but a
special Notes one. If so, Windows might not be able to resolve the path
in the normal way.

(Just a day or two ago in another newsgroup someone had a problem with a
shortcut to an Access form, which wouldn't respond to the normal ways of
manipulating shortcuts. Turned out that a "Microsoft Access Form
Shortcut" isn't an ordinary shortcut either.)

Create an ordinary shortcut to some file or other. Then right-click on
it and select Properties. You'll see the standard shortcut properties
dialog. Do the same for the Notes shortcut. Do both dialogs have all the
same tabs and controls?

 

[Guest]

John
Thanks for taking the time to respond.
I have checked the shortcut and it is nothing like a standard short cut, the
tabs which display are the same for a file and not a short cut.

A bit more information about what the dialogue is doing.
I have wrote my own custom document management solution in an access the
Access.ade is the forms interface for the user and SQL server is the backend
database. The purpose of the dialogue is to get the path from the file then
copy the file to a central file server using the information the user
supplied in the record card.

I wonder why the dialogue tries to follow the path.
I have not had this problem with url or any other file or short cut types.
Any help would be apreciated.

 

[John Nurick]

Hi Ray,

I've never tried to do anything with these non-standard shortcuts. Maybe
a Notes forum could provide an answer. Good luck!

 

[Guest]

John
Thanks for having a go to resolve

Will try notes as sugested

Regards Ray