Attaching a Folder

[deesheeha]

Hello!

Im currently coding a database and a form i have a textbox called AttachedFolder and a button called btnFolder...

Basically, i know you can bring up the browse box using the

DoCmd.RunCommand acCmdInsertHyperlink

but that inserts a hyperlink....

Im looking to be able to attach a folder!

Can anyone help with this??

 

[JerryKlmns]

Attach the folder with its contents????

Or store the path?

BTW forum705 is most appropriate for Access VBA

 

[PHV]

You may use this function:

Function PickFolder(strStartDir As Variant) As String
Dim SA As Object, f As Object
Set SA = CreateObject("Shell.Application")
Set f = SA.BrowseForFolder(0, "Choose a folder", 16 + 32 + 64, strStartDir)
If (Not f Is Nothing) Then
  PickFolder = f.Items.Item.path
End If
Set f = Nothing
Set SA = Nothing
End Function

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886