http://cwashington.netreach.net/depo/default.asp?topic=repository&move=next&ScriptType=vbscript&SubType=Misc
Script:
'
' FolderSelectDialog.vbs
' Alan Kaplan alan at akaplan dot com 12-15-2005
' after getting tired of reading it will not work...
' Based in part on FileSelectDialog.vbs by Gunter Born
' Kaplan added handling of special folders
' Tested okay with XP and 2000
' Uses the shell browseforfolder method to select a folder
'
Option Explicit
' Flags for the options parameter
Const BIF_returnonlyfsdirs = &H0001'Don't want no steenkin' filenames
Const BIF_ShowAllObjects = &H0008'ReturnFSAncestors. This will give
you typical root view
'XP has My Computer, My Network Places
not seen on 2000
Const BIF_editbox = &H0010'Show active selection, allows manual input
Dim wshShell
'Wscript object
Set wshShell = WScript.CreateObject("WScript.Shell")
'=== Example ===
Dim strFolder
StrFolder = BrowseForFolder("Choose a folder, then click OK:", _
BIF_returnonlyfsdirs + BIF_editbox + BIF_ShowAllObjects,"")
If Len(strFolder)>0 Then
MsgBox strFolder,vbOKOnly, "Selected Folder"
End If
'= End Example ===
Function BrowseForFolder(title, flag, dir)
' title = Text shown in the dialog box
' flag = values controlling BrowseForFolder behavior
' dir = Initial directory (can be "").
'dir most useful when not using BIF_ShowAllObjects
On Error Resume Next
Dim oShell, oItem, strSelection
' Create Shell object.
Set oShell = WScript.CreateObject("Shell.Application")
' Invoke Browse For Folder dialog box.
Set oItem = oShell.BrowseForFolder(&H0, title, flag, dir)
strSelection = oItem.Title
If Err <> 0 Then 'cancelled
Set oShell = Nothing
Set oItem = Nothing
Exit Function
End If
' If colon found then get drive letter from the title. No array
If InStr(strSelection, ":") Then
BrowseForFolder = mid(strSelection,InStr(strSelection, ":")-1, 2)
Else
'Handle all other special cases where path not returned
Select Case strSelection
Case "Desktop"
BrowseForFolder = wshShell.SpecialFolders("Desktop")
Case "My Documents"
BrowseForFolder = wshShell.SpecialFolders("MyDocuments")
Case "My Computer"
MsgBox "Invalid selection",vbCritical + vbOKOnly,"Error"
WScript.Quit
Case "My Network Places"
MsgBox "Invalid selection",vbCritical + vbOKOnly,"Error"
WScript.Quit
Case Else
' Finally try to retrieve the full path a la Born
BrowseForFolder = oItem.ParentFolder.ParseName(oItem.Title).Path
End Select
End If
'Cleanup
Set oShell = Nothing
Set oItem = Nothing
'make sure they all end in \
If Right(browseForFolder,1)<> "\" Then
browseforfolder = browseforfolder & "\"
End If
'Alternate make sure they all end without \
' If Right(browseForFolder,1) = "\" Then
' browseforfolder = left(BrowseForFolder,Len(BrowseForFolder)-1)
' End If
On Error GoTo 0
End Function
Wednesday, January 24, 2007, 9:51:24 AM, you wrote:
> Hello,
> Just a minute. I know the php script will run on server. Suppose i m working
> on server machine and i need to make a project for myself. The machine is
> only one and same. Also there are a lot of file and directory methods
> available in PHP, Whats that? Actually i want to show the files of selected
> folder on screen.
> Thanks...
> Travis Doherty-2 wrote:
>>
>> Borge Holen wrote:
>>
>>>On Wednesday 24 January 2007 07:32, Travis Doherty wrote:
>>>
>>>
Aslam Bari wrote:
>Dear All,
>I m new in this Forum. I m making a project in which i need to show user
> a
>Browse Folder Dialog Box, In which he can select a folder and after this
> i
>will do some manipulation on that folder's content. So the problem is
> that
>i could not found any sample on Web , how to show "Folder Dialog" in any
>way (HTML, JavaScript, PHP etc). Plz has anybody some idea how to do
> some
>work around this.
>
>Thanks...
>
>
PHP won't let you edit files on your users' computer. Ever.
Maybe it would be worth your time to look into a different language to
do whatever it is you want to do, something like Visual Basic might suit
you well (last time I used it there was a control that would popup the
standard windows 'Select Folder' dialog.)
Travis Doherty
>>>
>>>Ouch, this is close to swearing in the church...
>>>
>>>
>>>
>> :p I suppose it is. Use the right tool for the job right? PHP on a
>> server won't ever let the OP manipulate the content of a folder on his
>> users computer.
>>
>> T
>>
>> --
>> PHP General Mailing List (http://www.php.net/)
>> To unsubscribe
