Cmd Dialog Cancel Button?

[kliz0328]

I have some code, that I got from this site, that allows a user to browse for a folder, the code is below. My question is, how do you determine whether the user has clicked the OK button, the Cancel button, or the close. "X" button?

fold = PickFolder(0)

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", 0)
If (Not F Is Nothing) Then
  PickFolder = F.Items.Item.path
End If
Set F = Nothing
Set SA = Nothing
End Function

 

[ItIsHardToProgram]

You could just put a boolean in the onclick event....

 

[kliz0328]

I don't think I can do that, the browse for folder form is not a form that I created, and I can't get it into design view, the code above is all that it took to create it.

 

[ItIsHardToProgram]

Oh I see... I am not familiar with the browse window.... but you can probably google it and find all the propertys...... try google with browse folder window attributes or something

 

[kliz0328]

Yes I am trying, I have been trying to tweak the F.Items.Iten.path statement from above to get something but no luck yet.

 

[PHV]

fold = PickFolder(0)
If fold = "" Then MsgBox "You didn't select a folder"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[ItIsHardToProgram]

Right PHV, always the simplest idea works the best :S

Gota keep that in mind