Cancel event

[Av8tordude]

I have this code below that allows me to choose the folder location and choose the name of the file and insert it into a textbox, but if the user does not select the folder location (i.e. clicks cancel or closes the dialogue box) I do I prevent the textbox from enter the file name in the textbox?

Private Type BROWSEINFO
  hOwner As Long
  pidlRoot As Long
  pszDisplayName As String
  lpszTitle As String
  ulFlags As Long
  lpfn As Long
  lParam As Long
  iImage As Long
End Type

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
            "SHGetPathFromIDListA" (ByVal pidl As Long, _
            ByVal pszPath As String) As Long
            
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
            "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
            As Long
            
Public Function BrowseFolder(szDialogTitle As String) As String
Dim X As Long, bi As BROWSEINFO, dwIList As Long
Dim szPath As String, wPos As Integer

With bi
    .hOwner = hWndAccessApp
    .lpszTitle = szDialogTitle
    .ulFlags = BIF_RETURNONLYFSDIRS
End With

dwIList = SHBrowseForFolder(bi)
szPath = Space$(512)
X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)

If X Then
    wPos = InStr(szPath, Chr(0))
    BrowseFolder = Left$(szPath, wPos - 1)
Else
    BrowseFolder = vbNullString
End If
End Function

Private Sub cmdBrowse_Click()
Dim strFolderName As String

strFolderName = BrowseFolder("Choose Folder To Download File")

txtLoc = strFolderName & "\"  & "File name"
End Sub

 

[shg]

That seems very complicated. Is the purpose just to select a file to do something with, or something more?

 

[Av8tordude]

when i Click userform button "Browse", the dialogue box appears and i select the folder location. The folder location will be entered into the textbox (i.e. C:\Document and Folders\File Name). If I don't select a folder it enters File Name in the textbox. if I cancel the folder location, the textbox should remain empty.