Browse for file dialogue box?

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Browse for file dialogue box?

Logged in as: Guest

arrSession:exec spGetSession 2,2,61104

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

Printable Version

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

Page: [1]

Message

<< Older Topic Newer Topic >>

Browse for file dialogue box? - 6/5/2008 8:38:40 PM

TKS

Posts: 187
Score: 0
Joined: 5/16/2008
Status: offline

I found something that calls the Browse for FOLDER dialogue box:

... but what about Browse for File?

-TKS

Post #: 1

RE: Browse for file dialogue box? - 6/6/2008 12:28:45 AM

dm_4ever

Posts: 2665
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

UserAccounts.CommonDialog ....but if I remember correctly....this would not work with VISTA or better

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to TKS)

Post #: 2

RE: Browse for file dialogue box? - 6/6/2008 2:52:03 AM

TKS

Posts: 187
Score: 0
Joined: 5/16/2008
Status: offline

quote:

ORIGINAL: dm_4ever

UserAccounts.CommonDialog ....but if I remember correctly....this would not work with VISTA or better

Hey dm_4ever,

Pitty, my current OS is Vista Basic.

I did however find this code snippet:

'-- 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 dm_4ever)