| |
現在、下記のような関数を作成しています。
Public objFileDLG as FileDialog 'ファイルダイアログオブジェクト
Public Function gfncGetFileDialog() As Variant 'ファイル1件のみ選べる。
gfncGetFileDialog = ""
Set objFileDLG = Application.FileDialog(msoFileDialogOpen)
objFileDLG.AllowMultiSelect = False '1つのみ選択可能にする。
objFileDLG.Show
If objFileDLG.SelectedItems.Count >= 1 Then
gfncGetFileDialog = objFileDLG.SelectedItems(1)
End If
'gfncGetFileDialogには選択されたファイル名（完全パス）が保存されます。
End Function
この関数でショートカットを選択すると、ショートカットでなくリンク先のファイルが
保存されます。ですので、ショートカットの時にエラーメッセージを出すという機能を追加したいのです。
ファイルがショーをカットであるかを判別するプロパティかメソッドを知っている方
ご返信ください。よろしくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
