Use this code to select folders

'Create a FileDialog object as a File Picker dialog box.
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.Title = "Select Folder"

If .Show < -1 Then
MsgBox "No files found-make sure you have saved your" & _
"files in the correct location"
Exit Sub
End If
folder = fd.InitialFileName

End With

"Hennie Neuhoff" wrote:

Joel Tks very much! This will solve the drive problem. Any Ideas on the
pop-up screen that he gets with the Lotus files?
--
HJN


"Joel" wrote:

Excel VBA can run BAT files with the following command

Shell ("C:\temp\abc.bat")

The commands SUBST K:/D SUBST K:C:\ are batch commands that can be put into
a .BAT file using Notepad. The you can run the BAT file using the Shell
Command.


"Hennie Neuhoff" wrote:

I'm not sure how to explain my problem. It took some time to convince a
friend to take the step to use Excel and convert his Lotus data files. He's
about 90% there (unbelievable but true!). He uses a network at his workplace
[drive k:\] where the files are stored in various directories [6 major
elements] and subdirectories [12 branches and for each year]. His laptop is
updatedand, when not connected to the network, he runs a DOS(!!) program
which enables him to run the k-drive files on the laptop. A pop-up screen
appears with Lotus icons [major directories] if
double-clicked another pop-up screen appears with the sub-directories and if
selected opens the specific file. He calls this his file organizer and
challenged me that its not possible with Excel. I told him that I don't know
how, but I know some guys out there [which is you!!]
For what it's worth -The DOS file reads: SUBST K:/D SUBST K:C:\
Any form of assistance would be much appreciated.

--
HJN