BrowseForFile

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

BrowseForFile

Logged in as: Guest

arrSession:exec spGetSession 2,2,1575

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> BrowseForFile
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

BrowseForFile - 11/4/2004 11:06:09 PM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

Hiya,

I am familiar with the BrowseForFolder, but i am looking for the BrowseForFile (or similar).

Anyone ideas?

Thx [8)]

_____________________________

For more information, please see the "Read me First" topic.

http://www.visualbasicscript.com

Post #: 1

Re: BrowseForFile - 11/5/2004 12:28:19 AM

mbouchard

Posts: 1863
Score: 14
Joined: 5/15/2003
From: USA
Status: offline

I forget when I got this script, but it uses IE to browse for a file.

'---FileBrowser2.vbs demonstrates a class block that enables a file browsing window.
'--see the info. file for details.
'--this script is an updated version of FileBrowser.vbs
'--It does not require that OK be clicked after selecting a file.
'--Selecting a file will close the window and return the file path.
'--clicking cancel or closing the window manually will return "".
'----------------------------------------
Dim ob, s
set ob = New FindFile
s = ob.Browse
msgbox s
set ob = nothing

'-----------------BEGIN CLASS BLOCK -----------------------------------
'-- Use:         Set obj = New FindFile
'--                 var = obj.Browse
'-------------- var returns path of file selected. -----------------------------
'---------------------------------------------------------------------
Class FindFile
Private fso, sPath1

'--FileSystemObject needed to check file path:
Private Sub Class_Initialize()
Set fso = CreateObject("Scripting.FileSystemObject")
end sub

Private Sub Class_Terminate()
Set FSO = Nothing
End sub

'-- the one public function in class:

Public Function Browse()
on error resume next
sPath1 = GetPath
Browse = sPath1
end function

Private Function GetPath()
Dim Ftemp, ts, IE, sPath, sStatus

'--Get the TEMP folder path and create a text file in it:

Ftemp = fso.GetSpecialFolder(2)
Ftemp = Ftemp & "\FileBrowser.html"
set ts = fso.CreateTextFile(Ftemp, true)

'--write the webpage needed for file browsing window:

ts.WriteLine "<HTML><HEAD><TITLE></TITLE></HEAD>"
ts.WriteLine "<BODY BGCOLOR=" & chr(34) & "#F3F3F8" & chr(34) & " TEXT=" & chr(34) & "black" & chr(34) & ">"
ts.WriteLine "<script language=" & chr(34) & "VBScript" & chr(34) & ">"
'--sub for CANCEL button to catch click in script:
ts.WriteLine "sub butc_onclick()"
ts.WriteLine "status = " & chr(34) & "cancel" & chr(34)
ts.WriteLine "end sub"
ts.WriteLine "</script>"
ts.WriteLine "<DIV ALIGN=" & chr(34) & "center" & chr(34) & ">"
ts.WriteLine "<FONT FACE=" & Chr(34) & "arial" & Chr(34) & " SIZE=2>"
ts.WriteLine "<B>SELECT FILE:</B><BR>"
ts.WriteLine "<FORM>"

'--this is the file browsing box in webpage:
ts.WriteLine "<INPUT TYPE=" & chr(34) & "file" & chr(34) & "></input>"
'--this puts a bit of space between buttons:
ts.WriteLine chr(38) & chr(35) & "160" & chr(59) & " " & chr(38) & chr(35) & "160" & chr(59)
'--this is the CANCEL button:
ts.WriteLine "<input type=" & chr(34) & "button" & chr(34) & " id=" & chr(34) & "butc" & chr(34) & " value=" & chr(34) & "CANCEL" & chr(34) & "></input>"
ts.WriteLine "<BR>"
ts.WriteLine "</FORM>"
ts.WriteLine "</FONT></DIV>"
ts.WriteLine "</BODY></HTML>"
ts.Close
set ts = nothing
on error resume next

'--webpage is written. now have IE open it:

Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Navigate "file:///" & Ftemp
IE.AddressBar = false
IE.menubar = false
IE.ToolBar = false
IE.StatusBar = false
IE.width = 400
IE.height = 150
IE.resizable = false
IE.visible = true

'--do a loop every 1/2 second until either:
'-- the browsing window value is a valid file path or
'-- CANCEL is clicked (setting IE.StatusText to "cancel") or
'--IE is closed from the control box.

Do while IE.visible = true
spath = ie.document.forms(0).elements(0).value         '--get browsing text box value.
sStatus = IE.StatusText                                         '--get status text.

if fso.FileExists(spath) = true  or sStatus = "cancel" or IE.visible = false then
exit do
end if
wscript.sleep 500
Loop

IE.visible = false
IE.Quit
set IE = nothing
if fso.FileExists(spath) = true then
GetPath =  spath
else
GetPath = ""
end if
End Function

End Class

(in reply to Snipah)

Post #: 2

Re: BrowseForFile - 11/5/2004 12:45:34 AM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

Thx man, it works as i hoped... :D

(in reply to Snipah)

Post #: 3

Re: BrowseForFile - 11/5/2004 9:05:34 PM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

This i found later:

'-- Hwnd is always 0. Title is browse window caption. RootFolder is optional top folder to show.
'-- Options has several possibilities:
'--  1 - only allows selection of system folders. (doesn't seem to work.)
'--  2 - don't show network folders below domain level. (doesn't work on stand-alone system.)
'--  8 - only allow selection of File System ancestors(??) (on stand-alone system nothing can be selected.)
'--  16 - adds a text input but only valid entries will be returned; cannot create a folder.
'--  4096 - only computers can be selected.
'--  8192 - only a printer can be selected.
'--  16384 - full browsing, includes files.
'--  This script uses the FolderItems object properties to Get path and
'--  find out what type of item it is.

'---------------------------------------------------------

Dim ShellApp, Ret, s, i
Set ShellApp = CreateObject("Shell.Application")

On Error Resume Next
Set Ret = ShellApp.BrowseForFolder(0, "Choose a file or folder", 16384)
s = Ret.title
If Err.number <> 0 Then
WScript.Quit
End If

s = GetPath(Ret, i)
MsgBox s & " - " & cstr(i) &vbcrlf&vbcrlf&"0-namespace. 1-drive. 2-folder. 3-file." '--show full path and type of item returned. 0-namespace. 1-drive. 2-folder. 3-file.
Set ShellApp = nothing
WScript.Quit

Function GetPath(Fil, iItem)
Dim Pt1, fPar, sn, Obj, sType
On Error Resume Next
sn = Fil.title
MsgBox "sn (File/Folder title): " &sn
Set fPar = Fil.parentfolder
MsgBox "fPar (File/Folder parent Folder): " &fpar

Set Obj = fPar.parsename(sn) '--return item selected as a Shell FolderItem.
MsgBox "Obj (return item selected as a Shell FolderItem): " &obj

'--weed out namespaces and drives. If it's a namespace or drive it can't
'--return a FolderItem so the last Call caused an error and Obj is therefore
'--Not part of the filesystem:

If Obj.isfilesystem = false Then
Pt1 = instr(sn, ":")
If Pt1 = 0 Then
iItem = 0  '--namespace.
getpath = sn
Else
iItem = 1 '--drive.
getpath = mid(sn, (Pt1 - 1), 2) & "\"  '--Get letter before : and add "\" If drive.
End If
Set Obj = nothing
exit Function
End If

'--it's a file or folder. find out which and Get path:
sType = Obj.type  '--Get object Type as shown in folder Details view.
MsgBox "sType (Get object Type as shown in folder Details view): " &sType '-- Should be able to use: If Obj.IsFolder = True..... but it doesn't work.

If instr(sType, "Bestandsmap") = 0 Then  '-TAALGEVOELIG-in detail view a folder will be type "File Folder".
iItem = 3  '--file.
Else
iItem = 2  '--folder.
End If

getpath = Obj.path
Set Obj = Nothing
End Function

(in reply to Snipah)

Post #: 4

Re: BrowseForFile - 11/7/2004 3:05:08 PM

Res

Posts: 2
Score: 0
Joined: 11/7/2004
From: USA
Status: offline

Here is a VBS file that creates a version the the "browse for folder" dialog box that will display every folder in all drives, and show every file in any given folder, when that folder is selected.

'*************************************************************************************

Const WINDOW_HANDLE = 0
Const BIF_BROWSEINCLUDEFILES = &H4000&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
(WINDOW_HANDLE, "Select Any Folder or File:", BIF_BROWSEINCLUDEFILES, "C:\ ")
Set objFolder.SubFolder = objFolder & "*\ "
Set objFile = objFolder.SubFolder & "* "
Set objFile.Extension = objFile & ".*"
Set objFile.Path = objFolder.SubFolder & "*" & objFile.Extension
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Win32_Directory where name = '" & objPath & "'")
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Win32_Directory where name = '" & objName & "'")
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Win32_Directory where name = '" & objFile & "'")
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Win32_Directory where name = '" & objFile.Name & "'")
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Win32_Directory where name = '" & objFile.Path & "'")
Set objWMIService = GetObject _
("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from Win32_Directory where name = '" & objFile.Extension & "'")
For Each objFile in colFiles
Wscript.Echo "Path: " & objFile.Path
Wscript.Echo "Name: " & objFile.Name
Next

'**********************************************************************************

Hope this helps! Fell free to contact me if you have any questions, good luck.

(in reply to Snipah)

Post #: 5

Re: BrowseForFile - 11/17/2004 12:34:03 AM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

in this case if you select a file (not a folder) from the desktop, then RET.TITLE = empty

Who can help with resolving this?

:( [sad face]

(in reply to Snipah)

Post #: 6

Re: BrowseForFile - 11/17/2004 7:36:01 AM

mbouchard

Posts: 1863
Score: 14
Joined: 5/15/2003
From: USA
Status: offline

Snipah,

Remove the on error resume next and you will see that it is giving you an error. Not really sure why as of yet, but am looking around.

(in reply to Snipah)

Post #: 7

Re: BrowseForFile - 11/17/2004 2:36:02 PM

jbuttery

Posts: 24
Score: 0
Joined: 11/3/2004
From:
Status: offline

Res:
Looks mighty clean, but I'm a rookie and line 4 that begins
Set objFolder
gives me a file/path error (like an old basic 75/76 error). Any clues appreciated.
Jim

(in reply to Snipah)

Post #: 8

Re: BrowseForFile - 11/17/2004 9:01:24 PM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

quote:
Originally posted by jbuttery

Res:
Looks mighty clean, but I'm a rookie and line 4 that begins
Set objFolder
gives me a file/path error (like an old basic 75/76 error). Any clues appreciated.
Jim

remove the Const en fill those in where they belong, that might help, it worked for me too.

(in reply to Snipah)

Post #: 9

Re: BrowseForFile - 11/17/2004 9:17:04 PM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

quote:
Originally posted by mbouchard

Snipah,

Remove the on error resume next and you will see that it is giving you an error. Not really sure why as of yet, but am looking around.

Error line: Set Ret = ShellApp.BrowseForFolder(0, "Choose a file or folder", 16384)
Char: 1
Error: Invallid Procedure call or argument
Code: 800A0005
Source: Microsoft VBScript runtime error

(in reply to Snipah)

Post #: 10

Re: BrowseForFile - 11/17/2004 11:21:26 PM

mbouchard

Posts: 1863
Score: 14
Joined: 5/15/2003
From: USA
Status: offline

you need this line to get it working.

Set ShellApp = CreateObject("Shell.Application")

(in reply to Snipah)

Post #: 11

Re: BrowseForFile - 11/17/2004 11:33:59 PM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

quote:
Originally posted by mbouchard

you need this line to get it working.

Set ShellApp = CreateObject("Shell.Application")

I have that allready

(in reply to Snipah)

Post #: 12

RE: Re: BrowseForFile - 3/14/2006 3:11:11 PM

DiGiTAL.SkReAM

Posts: 1159
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

Sorry for ressurrecting such an old topic, but I was searching for a file browsing hack for vbscript, and this was all I found.
So... I dug a bit deeper, even went over to other languages, until I found the following little snippet and figured that I'd post it here just in case someone else could use it - especially since this topic/thread was never successfully answered/solved.
NOTE : This works on WinXP, and I think it would work on Windows 2000 - if the .NET framework was installed. Dunno, since I don't have any Win2000 boxen just laying around for testing.

And here's a screenshot of the code in action. As you can see, it is the normal windows "Open File" dialog box.

Thumbnail Image

Attachment (1)

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to Snipah)