List Boxes Aarrggh!! Help

Hello,

Right i have two forms. One the first is a drive list box. I want this to only display hard-disks, not CDROMS or A:\ or Removeable drives. Anyone know how to do this?

Plus on my form2 is a directory list box, i want this list box to show the users chosen hard-disk, open at "Documents and Settings".. So if a user chooses "c:\" the directory list box on form2 will open at "C:\Documents and Settings".. Anyone know how to do this?..

PLEASE HELP.

MAIL ME HERE

Moved from CodeBank.

Hi jonnie and welcome to VBForums! :wave:
Imfortunately what you described doesn't make much sense to me - if you restrict user from browsing anything but his/her personal folders then why ever bother showing navigation tools such drive/dir listboxes. Also "Documents And Setttings" is Windows special folder and it could have a different name on different system so you need to find it. The following sample is a modified sample from allapi network - it demonstrates how to find personal folder. You may use that path throughout the project but variable will have to be declare as Public at the module level.

VB Code:

Option Explicit
 
Private Const CSIDL_PERSONAL = &H5
Private Const ERROR_SUCCESS = 0&
 
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _
    (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As Long) As Long
 
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" _
    Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
 
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long)
 
Private Sub Command1_Click()
Dim strPath$
 
    strPath = GetSpecialFolder(Me.hwnd, CSIDL_PERSONAL)
    Debug.Print "Desktop folder: " & strPath
 
End Sub
 
Public Function GetSpecialFolder(hwnd As Long, CSIDL As Long) As String
'========================================================================
Dim pidl As Long
Dim Pos As Long
Dim sPath As String
     
    'fill the pidl with the specified folder item
    If SHGetSpecialFolderLocation(hwnd, CSIDL, pidl) = ERROR_SUCCESS Then
        'initialize & get the path
        sPath = Space$(260)
        If SHGetPathFromIDList(ByVal pidl, ByVal sPath) Then
            'check for a null
            Pos = InStr(sPath, Chr$(0))
            If Pos Then 'strip it
                GetSpecialFolder = Left$(sPath, Pos - 1)
            End If
            Call CoTaskMemFree(pidl)
        End If
    End If
    
End Function

I have sorted out opening the dirlistbox at "chosen source drive"\Documents and settings,

NOW,

I want to make the UNC of [chosenSourceDrive]\Documents and Settings to be the top most folder in the dirListBox.

Anyone know how to do this?

Would I use the TopIndex property and set a string value to it?

Such as... (pseudo)

'Source Drive Form
#################
text1.text = [chosen source drive letter] + \Documents and Settings

'Text 1 Now reads "C:\Documents and Settings
'My dirListBox on my "Choose your username" form is set to that path.

'UserName Form
############
'OK Heres the bit i'm struggling with, so take the info that there are two
'forms, on the first one, the user chooses a drive and the drive letter plus
'\documents and settings is set to a text box. That text box is read into
'the dirListBox as the path, hecnce the dirListBox opens at "drive" +
'\documents and setting
'You See... (take the symbol "@" to mean a folder icon)
@c:\
@Documents and Settings
@username1
@username2
@username3

i want the usernames to be the top most folder so it just shows

@username1
@username2
@username3

Any one help?

Quote:

---

Originally Posted by jonniehack

I have sorted out opening the dirlistbox at "chosen source drive"\Documents and settings,

NOW,

I want to make the UNC of [chosenSourceDrive]\Documents and Settings to be the top most folder in the dirListBox.

Anyone know how to do this?

Would I use the TopIndex property and set a string value to it?

Such as... (pseudo)

'Source Drive Form
#################
text1.text = [chosen source drive letter] + \Documents and Settings

'Text 1 Now reads "C:\Documents and Settings
'My dirListBox on my "Choose your username" form is set to that path.

'UserName Form
############
'OK Heres the bit i'm struggling with, so take the info that there are two
'forms, on the first one, the user chooses a drive and the drive letter plus
'\documents and settings is set to a text box. That text box is read into
'the dirListBox as the path, hecnce the dirListBox opens at "drive" +
'\documents and setting
'You See... (take the symbol "@" to mean a folder icon)
@c:\
@Documents and Settings
@username1
@username2
@username3

i want the usernames to be the top most folder so it just shows

@username1
@username2
@username3

Any one help?

---

You'd probably have to do it through API - I'm not shure that VB has a way to re-order thigs in a list box as a built in method.

Did you try RhinoBull's method, it could be much easier :)

Cheers,

RyanJ