Browse For Folder Dialog Box : select drive instead folder, not working

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Browse For Folder Dialog Box : select drive instead folder, not working

Logged in as: Guest

arrSession:exec spGetSession 2,2,49474

	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 Folder Dialog Box : select drive instead folder, not working
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 Folder Dialog Box : select drive instead fol... - 7/13/2007 5:10:18 AM

chapeau_melon

Posts: 17
Score: 0
Joined: 6/20/2007
Status: offline

Hello,

I can't seem to find the solution.

I use the script to extract a zip. Instead of extracting to a folder, I'dd need to select a disk (f: or e:, etc) also.
But when selecting them I get error :
destination = objF.ParentFolder.ParseName(objF.Title).Path .... isn't valid ?

How to resolve ?

Function IsValue(obj)
   ' Check whether the value has been returned.
   Dim tmp
   On Error Resume Next
   tmp = " " & obj
   If Err <> 0 Then
       IsValue = False
   Else
       IsValue = True
   End If
   On Error GoTo 0
End Function
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.GetFile("extract.vbs") 
FolderName=objFSO.GetParentFolderName(objFile)
'wscript.echo Foldername
stFichierSource = CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text")
Dim wsh, objDlg, objF
' Get Application object of the Windows shell.
Set objDlg = WScript.CreateObject("Shell.Application")
Set objF = objDlg.BrowseForFolder (&H0, _
   "Select the folder to copy the Record Session to", &H4000, 17)
If IsValue(objF) Then 
  destination = objF.ParentFolder.ParseName(objF.Title).Path
  wscript.echo destination
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set oShell = WScript.CreateObject("Wscript.Shell")
oShell.Run FolderName&"\7za.exe x -y "&stFichierSource&".zip -o"&destination&"\", 0, True
End If