Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

VBSCRIPT something link BrowseForFile as BrowseForFolder

Posted on 2004-03-21
8
Medium Priority
?
4,355 Views
Last Modified: 2007-12-19
Is there any way to display a "BrowseForFile" dialog, similar to the
  BrowseForFolder method of the shell object?  I am
  looking for a way to allow the user to select a FILE or a FOLDER

  Is this possible in VBScript?
0
Comment
Question by:hasnut
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
8 Comments
 
LVL 53

Expert Comment

by:COBOLdinosaur
ID: 10645246
If you mean in a web page you just need HTML:

<form>
<input type="file">
</form>

Cd&
0
 
LVL 1

Author Comment

by:hasnut
ID: 10645302
HI HI,
So, can I select Folder?

Option Explicit

Const SerSetRoot_desktop            = 0    
Const SerSetRoot_programs           = 2    
Const SerSetRoot_controlpanel       = 3    
Const SerSetRoot_printers           = 4    
Const SerSetRoot_documents          = 5    
Const SerSetRoot_favorites          = 6    
Const SerSetRoot_startup            = 7    
Const SerSetRoot_recent             = 8    
Const SerSetRoot_sendto             = 9    
Const SerSetRoot_startmenu          = 11  
Const SerSetRoot_drives             = 17  
Const SerSetRoot_network            = 18  
Const SerSetRoot_nethood            = 19  
Const SerSetRoot_fonts              = 20  
Const SerSetRoot_templates          = 21

Code 1 End

Here in code 1 we see we can set root as we like. Those are the constant values.

 

 Code 2 Starts

Function BrowseForAnything(ShowText, BrowseInformation, SetRoot)
 On Error Resume Next
 Dim AppShell, ReturnFolder,  WshShell, errorcode,ColonPosition

 Set AppShell = WScript.CreateObject("Shell.Application")
 Set WshShell = CreateObject("WScript.Shell")

 Set ReturnFolder = AppShell.BrowseForFolder(&H0, ShowText, BrowseInformation, SetRoot)
 BrowseForAnything = ReturnFolder.ParentFolder.ParseName(ReturnFolder.Title).Path
 

   errorcode = err.number
 
   If errorcode <> 0 Then
 If errorcode = 424 then
  BrowseForAnything = Null
     else
   
      ColonPosition = InStr(ReturnFolder.Title, ":")

          If ColonPosition > 0 Then
    BrowseForAnything = Mid(ReturnFolder.Title, ColonPosition - 1, 2) & "\"
       End If
 End If
    End If
End Function


I need: if file is selected then return value should be the file path+file name
if directory selected then show the Directory/folder path (ITS ALLREADY THERE)

0
 
LVL 53

Expert Comment

by:COBOLdinosaur
ID: 10645472
I have no idea what you are trying to do.  I don't use vbscript. From what I can see though, if it runs at all on a web page it is going to throw all kind so security alerts and a lot of fire walls will block it.

If you are trying to preset the path the user goes to, you will have a hard time, because the browser has specific security routines to prevent that.

Cd&
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 1

Author Comment

by:hasnut
ID: 10645478
Just rename it vbs and run it. You will see the Browse for Folder Window, I have the asp code of this.

0
 
LVL 1

Author Comment

by:hasnut
ID: 10652436
INTERESTING NO ONE ANSWERING MY QUESTION? If anyone interested I can give you much big points
0
 
LVL 3

Expert Comment

by:domj
ID: 12158076
No, you cannot select a File in the same way that you select the folder. Trust me, I have spent a long time trying to do it. The best you could do is display a list of the files in the directory selected.

Dom
0
 
LVL 1

Accepted Solution

by:
GhostMod earned 0 total points
ID: 12580045
PAQed with no points refunded (of 100)

GhostMod
Community Support Moderator
0

Featured Post

Tech or Treat! - Giveaway

Submit an article about your scariest tech experience—and the solution—and you’ll be automatically entered to win one of 4 fantastic tech gadgets.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Styling your websites can become very complex. Here I'll show how SASS can help you better organize, maintain and reuse your CSS code.
Browsers only know CSS so your awesome SASS code needs to be translated into normal CSS. Here I'll try to explain what you should aim for in order to take full advantage of SASS.
The viewer will learn how to dynamically set the form action using jQuery.
Video by: Mark
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.
Suggested Courses

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question