Solved

Looking for a special ActiveX.

Posted on 2002-03-16
5
139 Views
Last Modified: 2010-05-02
Hi There,

I need to get a PATH from a user.
I'm using CommonDialog Control for browsing the HDD.

But in CD u need to select a FILE to get all the path, there is a way to select a path without select a file ?

0
Comment
Question by:computech1
  • 3
  • 2
5 Comments
 
LVL 2

Accepted Solution

by:
DanAvni earned 100 total points
ID: 6873532
0
 

Author Comment

by:computech1
ID: 6873586
The URL doesn't work ..
0
 
LVL 2

Expert Comment

by:DanAvni
ID: 6873633
'**************************************
'Windows API/Global Declarations for :Br
'     owse Folder Dialog
'**************************************
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const BIF_BROWSEFORCOMPUTER = &H1000

Private Const MAX_PATH = 260


Private Declare Function SHBrowseForFolder Lib "shell32" _
    (lpbi As BrowseInfo) As Long


Private Declare Function SHGetPathFromIDList Lib "shell32" _
    (ByVal pidList As Long, _
    ByVal lpBuffer As String) As Long


Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
    (ByVal lpString1 As String, ByVal _
    lpString2 As String) As Long


Private Type BrowseInfo
    hwndOwner As Long
    pIDLRootAs Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlagsAs Long
    lpfnCallbackAs Long
    lParam As Long
    iImage As Long
    End Type



'**************************************
' Name: Browse Folder Dialog
' Description:Have ever wondered if ther
'     e is an ActiveX object that make you bro
'     wse for a folder. This API functions cal
'     ls make the browse dialog
' By: Ziad Mohammad
'
' Inputs:Start a new Project and Add a c
'     ommand button on the form named command1
'    
'
' Assumes:This API function calls displa
'     y the structure of your computer and all
'     ow the use to select a folder

'
'This code is copyrighted and has' limited warranties.Please see http://w
'     ww.Planet-Source-Code.com/xq/ASP/txtCode
'     Id.6710/lngWId.1/qx/vb/scripts/ShowCode.
'     htm'for details.'**************************************



Private Sub Command1_Click()
    'Opens a Treeview control that displays
    '     the directories in a computer
    Dim lpIDList As Long
    Dim sBuffer As String
    Dim szTitle As String
    Dim tBrowseInfo As BrowseInfo
    szTitle = "This is the title"


    With tBrowseInfo
        .hWndOwner = Me.hWnd
        .lpszTitle = lstrcat(szTitle, "")
        .ulFlags = BIF_RETURNONLYFSDIRS_
        +BIF_DONTGOBELOWDOMAIN
       
    End With
    lpIDList = SHBrowseForFolder(tBrowseInfo)


    If (lpIDList) Then
        sBuffer = Space(MAX_PATH)
        SHGetPathFromIDList lpIDList, sBuffer
        sBuffer = Left(sBuffer, InStr
        (sBuffer, vbNullChar) - 1)
        MsgBox sBuffer
    End If
End Sub
0
 

Author Comment

by:computech1
ID: 6873733
In one word : WOW !!

thanx Dan
0
 

Author Comment

by:computech1
ID: 6876086
Dan

I Still unable to browse Net drives ...
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

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

Introduction I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

809 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