File Location in Excel 2000

[44nato44]

Hi

I need the user to open a dialog box and select a folder, and I need to save this to a string.

Buuut I am not able to find this, I can open and save files but not get the folder location.

Anybody has any ideas ?

Cheers

Best Regards

 

[SkipVought]

Hi,

Check out the GetOpenFileName method.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[PHV]

I've already post this function:

Public 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