karin

Hi.
Can anyone tell me how I can retrieve the file name when I use the
BrowseForFolder object? I have set two options on the BrowseForFolder: 1)
file names are displayed and 2) edit - in case they want to type in a new
file name. I can retrieve a folder name with problem, but not the file name.
If I click on a file name, in my code it goes to the "Unknown error-1" part.
If anyone can tell me how to do this, I would be very grateful. Here is my
code:
--------------
On Error Resume Next

' Flags for the options parameter
Const BIF_returnonlyfsdirs = &H0001
Const BIF_dontgobelowdomain = &H0002
Const BIF_statustext = &H0004
Const BIF_returnfsancestors = &H0008
Const BIF_editbox = &H0010
Const BIF_validate = &H0020
Const BIF_browseforcomputer = &H1000
Const BIF_browseforprinter = &H2000
Const BIF_browseincludefiles = &H4000

Dim file, oShell, oItem, tmp, msg

Set oShell = CreateObject("Shell.Application")
Set oItem = oShell.BrowseForFolder(&H0, "Select a file or folder to copy",
BIF_editbox + BIF_browseincludefiles, "")

If Err.Number <> 0 Then
If Err.Number = 5 Then
msg = "root folder error"
else
msg = "Unknown error-1"
End If
Else
file = oItem.self.path
If Err<> 0 Then
If Err.Number = 424 Then
msg = "Cancel clicked"
Else
msg = "Unknown error-2"
End If
Else
msg = file
End If
End if

Set oShell = Nothing
Set oItem = Nothing
----------
Thanks!!
Karin

richard mueller [mvp]

It's been awhile since I coded to use the BrowseForFolder api, but my
recollection is that the user can only select folders. Someone else may know
better. I use different methods to allow the user to select a file, such as
the IE File Open dialog. I have an example linked here:

http://www.rlmueller.net/IE%20Open.htm

--
Richard Mueller
Microsoft MVP Scripting and ADSI
Hilltop Lab - http://www.rlmueller.net
--

mr_unreliable

Apparently, the example posted above is opening the "special"
printers folder, rather than some normal file folder. A result
of my "dorking around" at one point.

However, that should be easy enough to fix. That is, easy
enough for you to substitute the "root folder" that you are
concerned about.

Or, you could just go back and find "Joe Earnest's" original
script.

http://groups.google.com/advanced_group_search

cheers, jw

karin

Thanks Richard and jw. I checked Joe Earnest's stuff and found out that it
does not work anymore (XP). Darn! I will try Richards idea. Thanks again.
--
Karin

mr_unreliable

Microsoft likes to abandon/un-support/eliminate scripting
features from time-to-time, so as to (pick one):

1. Create unexpected challenges for scripters;

2. Cause scripters to consider other occupations;

3. Encourage the use of (more) profanity among scripting
developers;

4. Contribute to increasing business at the local scripting
pub, and/or contribute to upgrades from brewski's to the
hard stuff;

5. Cause (further) alienation between scripters and their
spouses, as a result of scripters having to spend longer
hours at work, (to overcome/circumvent those missing
features):

6. As ms is considering going into the hair-replacement
business, ms wishes to encourage scripters to tear out
their hair;

or, maybe you have your own ideas...

cheers, jw

mayayana

In this download...

http://www.jsware.net/jsware/scripts.php3#classpk

... is a file named findfol.vbs. It uses BrowseForFolder
with files displayed and returns both the path and whether
the selection was a file or folder. I'm not sure about
compatibility, though. It works fine on Win98 but I seem
to remember that the file display option in BrowseForFolder
may have been discontinued in XP. (Maybe that's
why Joe Earnest's script didn't work?)

There are also other problems with BrowseForFolder.
If a system "namespace" is selected - like Control Panel -
it doesn't return a path. Also, Shell.Application is an
undependable way to deal with the file system altogether.
The files it "sees" depends on both the Windows version
and the display settings, because Shell.Application is really
meant to deal with the display of objects in Explorer.

paul randall

Hi, Karin
Are you looking for a 'save as ...' dialog? Something that allows you to
browse to a folder and create a new file name by clicking on an existing
file and modifying its name? And which returns the full path of this
not-yet-existing file? Something like M$'s common dialog object?

MSComDlg.CommonDialog is installed on most Windows OSs, but is a licensed
control. The scripting license is installed with some programming packages
like Visual Studio. The license is also automatically installed on a
computer when certain demo scripts and other free Microsoft downloads are
run or installed. Learn about it at
http://msdn2.microsoft.com/en-us/library/ms537834.aspx; download it at
http://msdn.microsoft.com/archive/de...or/default.asp

-Paul Randall