Picking an empty folder

[Neil Humphries]

How do I allow a user to browse to and select an empty folder?
I am using Word XP and later.

If I use a file picker dialog box, the user must select a file. I can
extract the path, but the user can't select a folder that has no files in it.

If I use a folder picker dialog box, the user can't browse freely; only to
folders below the initial one.

 

[Graham Mayor]

The user should be able to browse anywhere with the folderpicker dialog box

Dim strFile As String
Dim strPath As String
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
Again:
With fDialog
.Title = "Select Folder containing the documents and click OK"
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User"
Exit Sub
End If
strPath = fDialog.SelectedItems.Item(1)
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
End With
strFile = Dir$(strPath & "*.do?")
If Len(strFile) > 0 Then
MsgBox "This folder contains files?", vbExclamation, "Contains Files"
GoTo Again
End If
MsgBox strPath & " is an empty folder"


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>