Sometimes you needfo work with external files, this code will let you pick a folder.

Select Root folderSet fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd

.Title = "Select a folder to compile"

.AllowMultiSelect = False

.InitialFileName = strRootPath

If .Show = -1 Then

For Each varRootFolder In .SelectedItems

strRootPath = varRootFolder & "\"

Next varRootFolder

Else

End If

End With

Set fd = Nothing

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s