How to change default path for a hyperlink?

[Yodo]

Currently when I open edit hyperlink dialog, Access open the folder where DB is stored. I want to link files deep inside my computer, so now I manually have to show the path to my files again and again. I've googled, I 'm not the first to stump upon this thing but I didn't find any working solution. So, is there a way to change default path to the folder I'd like ?

[andy49]

This should be it
https://stackoverflow.com/questions/...edialog-in-vba

[Yodo]

Thank you! So, I need to use only this snippet?

Set f = Application.FileDialog(3)
f.AllowMultiSelect = False
If f.Show Then
For Each varItem In f.SelectedItems
strFile = Dir(varItem)
strFolder = Left(varItem, Len(varItem) - Len(strFile))
P = strFolder & strFile
Next
End If
Set f = Nothing