"Add New Folder" button in "Folder Browser" for Win 98

[Harsh Gupta]

hello,

i searched the forum but the NewDialog style of BrowseFolder API doesn't work for 98.

i believe that user need to make its own dialog system for that purpose. but i am unable to use TreeView control properly. could someone please explain it to me.

plus how can i Add and delete folders (in general coding and in treeview also).

thnx.

PS - I am waiting Hack

sister thread of this thread

[Hack]

PS - I am waiting Hack

Patience my New Delhi friend, is a virtue.

This was written by Matt Hart

Option Explicit
 
Private Const MAX_PATH = 260
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
 
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
 
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
 
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
(ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
 
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
(ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
 
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
 
Private Type DirInfo
    DirName     As String
End Type
 
Private bCancel As Boolean
 
Private Sub FindDirs(D$, T As TreeView)
    Static bFirstIn As Boolean
    
    If bCancel Then Exit Sub
    
    Dim nx As Node, C$
    Dim N As Integer, Srch$, i As Integer, NewD$
    
    C$ = D$
    If Right$(C$, 1) <> "\" Then C$ = C$ & "\"
    
    If Not bFirstIn Then
        bFirstIn = True
        Set nx = T.Nodes.Add(, , C$, C$)
    End If
    
    Srch$ = C$ & "*.*"
    ReDim Dees(1 To 10) As DirInfo
    Call LoadDirs(Dees(), N, Srch$)
    
    DoEvents
    
    If N Then
        For i = 1 To N
            Set nx = T.Nodes.Add(C$, 4, Dees(i).DirName, LastPath$(Left$(Dees(i).DirName, Len(Dees(i).DirName) - 1)))
        Next
    Else
        Exit Sub
    End If
    
    For i = 1 To N
        NewD$ = RTrim$(Dees(i).DirName)
        Call FindDirs(NewD$, T)
    Next
End Sub
 
Private Function LastPath$(P$)
    Dim i
    For i = Len(P$) To 1 Step -1
        If Mid$(P$, i, 1) = "\" Then
            LastPath$ = Mid$(P$, i + 1)
            Exit For
        End If
    Next
End Function
 
Private Sub LoadDirs(D() As DirInfo, N As Integer, Srch$)
    Dim a$, Max As Integer, i As Integer, k As Integer, W32 As WIN32_FIND_DATA, fHandle As Long, lResult As Long
    Dim oPath$
    Max = UBound(D)
    N = 0
    
    oPath$ = Left$(Srch$, Len(Srch$) - Len(LastPath$(Srch$)))
    
    fHandle = FindFirstFile(Srch$, W32)
 
    If fHandle Then
        Do
            a$ = Left$(W32.cFileName, InStr(W32.cFileName, Chr$(0)) - 1)
            If a$ <> "." And a$ <> ".." And ((W32.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) > 0) Then
                N = N + 1
                If Max < N Then
                    Max = Max + 10
                    ReDim Preserve D(1 To Max) As DirInfo
                End If
                D(N).DirName = oPath$ & a$ & "\"
            End If
            DoEvents
            If bCancel Then Exit Do
            lResult = FindNextFile(fHandle, W32)
        Loop While lResult
        lResult = FindClose(fHandle)
    End If
    
    If bCancel Then Exit Sub
 
    For i = 1 To N - 1
        For k = i + 1 To N
            If UCase$(D(i).DirName) > UCase$(D(k).DirName) Then
                a$ = D(k).DirName
                D(k).DirName = D(i).DirName
                D(i).DirName = a$
            End If
        Next
    Next
End Sub
 
Private Sub Command1_Click()
    Static Done
    If Done Then Exit Sub
    Done = True
    bCancel = False
    Command1.Caption = "Cancel"
    Call FindDirs("C:\", TV)
    Command1.Caption = "Fill It!"
    MsgBox "Done!"
    Done = False
End Sub

[Harsh Gupta]

thank you Hack. but there are few questions:

- it's only listing C: and not others like D:, E:, F: etc

- when i tried to click "Fill Up!", it showed an error

run-time error '35602':

Key is not unique in collection

and highlights

For i = 1 To N
            [hl]Set nx = T.Nodes.Add(C$, 4, Dees(i).DirName, LastPath$(Left$(Dees(i).DirName, Len(Dees(i).DirName) - 1)))[/hl]
        Next

- it takes some time in listing folders, why so?

- how can i show it like the pic you posted in the other thread?

- the cancel button is not working.

[Hack]

thank you Hack. but there are few questions:

- it's only listing C: and not others like D:, E:, F: etc

- when i tried to click "Fill Up!", it showed an error

What was the error? It doesn't error when I run it.

- it takes some time in listing folders, why so?

Because of the number of folders you have on your PC. That routine takes about 20 minutes to finish if I run it on mine (I have over 200 folders just under \Source Code\VB6 )

- how can i show it like the pic you posted in the other thread?

You would need to add an image control, some icons that you want to represent folders and link the image control to the treeview.

- the cancel button is not working.

Yeah, I've never really liked the way he did the cancel thing. I would put a specific cancel button on the form and in its click event set bCancel to True.

[Harsh Gupta]

What was the error? It doesn't error when I run it

run-time error '35602':

Key is not unique in collection

and highlights

For i = 1 To N
            [hl]Set nx = T.Nodes.Add(C$, 4, Dees(i).DirName, LastPath$(Left$(Dees(i).DirName, Len(Dees(i).DirName) - 1)))[/hl]
        Next

[Hack]

Well, you error is very wierd then, because I don't get that error. It works just fine.

In fact, I have attached the form I used to test this, and on my machine it just whipped right along.

Download this form and load it into the project you are using, run it, and see what happens.

[Harsh Gupta]

Well, you error is very wierd then, because I don't get that error. It works just fine.

In fact, I have attached the form I used to test this, and on my machine it just whipped right along.

Download this form and load it into the project you are using, run it, and see what happens.

sorry to say, but same thing and same error

[Hack]

sorry to say, but same thing and same error

I'm running XP Pro SP1. What do you have on your machine?

Also, what VB service pack are you running? I'm running SP5.

[Harsh Gupta]

I am using Win 98 (thats the original problem)

without any SP. but does it make any difference?

[Hack]

without any SP. but does it make any difference?

This is the difference. This is the BIG difference.

SP5 contains a variety of patches and updates/grades to many of the VB controls with TreeView and ListView being two of them.

I would suggest you download that service pack and apply it.

[Harsh Gupta]

This is the difference. This is the BIG difference.

SP5 contains a variety of patches and updates/grades to many of the VB controls with TreeView and ListView being two of them.

I would suggest you download that service pack and apply it.

all right. i will do it soon and revert back to you.

but it will take some time since i am using telephone connection nowadays and it will take few days, for me to download that huge package, plus IE, plus MDAC : PHEW :

for now

[Hack]

Don't you have a better/faster connection at your place of work?

You could download it there, burn it to CD, and take the CD home.

I do stuff like that for my father in-law all the time.

[Harsh Gupta]

Don't you have a better/faster connection at your place of work?

You could download it there, burn it to CD, and take the CD home.

I do stuff like that for my father in-law all the time.

if that's possible for me, i would have done that ages ago :LOL:

but i have no option but to download it at home. and i have applied for the Broadband connection but it will require few days to get connected.

....place of work?

still looking for job

[Harsh Gupta]

all right Hack, i am now ready to download the SP. but i have few queries-

1) should i also download the Windows Update from MSDN? is it going to help me any ways?

2) if i install VB SP6 instead of 5 (as you are using), does it make any difference?

thank you.

[Hack]

all right Hack, i am now ready to download the SP. but i have few queries-

1) should i also download the Windows Update from MSDN? is it going to help me any ways?

I can only speculate on this as I haven't used 98 in a few years, but I'd say...sure, why not.

2) if i install VB SP6 instead of 5 (as you are using), does it make any difference?

Well, it will make a difference to your VB controls and that treeview code should work for you, but it is only going to affect VB.

[Harsh Gupta]

Well, it will make a difference to your VB controls and that treeview code should work for you, but it is only going to affect VB.

couled you please elaborate on this one.

[Hack]

couled you please elaborate on this one.

The reason you are installing the service pack is because you don't have a VB service pack installed and the VB controls you are using are way out of date. This is why the treeview code worked on my machine but not on yours. One of the things these service packs do it provide updates for many of the VB6 controls.

[Harsh Gupta]

thank you but i knew that. all i wanted to know was will installing VB SP 6 make difference than installing SP5?

[Hack]

thank you but i knew that. all i wanted to know was will installing VB SP 6 make difference than installing SP5?

That I couldn't tell you. Maybe someone else can. I'm still running SP5.

[Harsh Gupta]

all right, then i will download SP6 and get back to this thread soon.

[Hack]

all right, then i will download SP6 and get back to this thread soon.

As soon as you get it installed, try that treeview code.

It should work.

[krtxmrtz]

Btw I had completely forgotten about this fully featured browse dialog I've just found in the folder where I keep the cool stuff. It works great even under W98.

[Harsh Gupta]

As soon as you get it installed, try that treeview code.

It should work.

all right Hack, i downloaded and installed VB SP6, but not much help and same problem i mentioned before. now what could be the problem?

[Hack]

all right Hack, i downloaded and installed VB SP6, but not much help and same problem i mentioned before. now what could be the problem?

Good question. As you know, it works on my machine, and now that you have yours updated, it should be working on yours.

Code that doesn't work, won't work anywhere, so if it works in one place, it should work in another. However, since it isn't, then we still have some kind of difference in our VB platforms. Are you using the form that I attached that I developed on my PC and works on my PC?

[Joacim Andersson]

You'll get the error simply because you have two folders with the same name, since you use the folder name (instead of full path) as the Key. Just make sure the Key is unique.

[Harsh Gupta]

Good question. As you know, it works on my machine, and now that you have yours updated, it should be working on yours.

Code that doesn't work, won't work anywhere, so if it works in one place, it should work in another. However, since it isn't, then we still have some kind of difference in our VB platforms. Are you using the form that I attached that I developed on my PC and works on my PC?

yes, i also tried using the form you attached before (except that you used a picturebox instead of a treeview ) and the same thing/error occurred.

and thats not all. even after updation, i am not able to run this code posted by Moeur. please see the entire thread and you will see that the project posted by worked on Moeur's PC and not mine (even after updation).

it's driving me nuts!!

[Harsh Gupta]

my request to you both, *SLAP ME*.

you are right JA. now all i want to learn is, how to make it look like a normal Browse for folder Dialog box (starting from desktop to all drives etc).

-icons can be set using imagelist.
-folders can be added using .Nodes.Add method.

thank you.

[Harsh Gupta]

hey just tried the example posted by krtxmrtz. it demonstrates the same thing, Add New folder using SHBrowseForFolder API on Win 98 too . How??

[vbasicgirl]

This is another way but i am not sure about win98

Dim sh As New Shell32.Shell
Dim str1 As Shell32.Folder2
 
Set str1 = sh.BrowseForFolder(Me.hWnd, "Select a Folder", 0, ssfDRIVES)
 
If Not str1 Is Nothing Then
 MsgBox str1.Self.Path
End If

casey.

[Hack]

Did you try Casey's code example?

Have you sorta, kinda, got it working? (That is what I'm picking up anyway )

[Harsh Gupta]

Did you try Casey's code example?

which Casey's code??

Have you sorta, kinda, got it working? (That is what I'm picking up anyway )

yep it was my mistake.

but now, only one query left, how can i make it look like normal Browse for folder dialog box? mean how can i start it from Desktop and also show all the drives of the PC?

i can manage other things like Imagelist thing, and adding folders etc. though i may take a lot of time on it because i never did any work on these 2 (imagelist and treeview), but i want to do it myself.

but if you or somebody else may help me out regarding the display of all drives and starting from desktop thing.

thank you all.

[vbasicgirl]

which Casey's code??

Post #29

casey.

[Harsh Gupta]

Post #29

casey.

oh so sorry, i could not see your name there. i apologize.

but i think i need to add reference for it because it generates an error for

Dim sh As New Shell32.Shell
Dim str1 As Shell32.Folder2

if you can please tell me as i am not able to recall it.

thank you.

[vbasicgirl]

I should have said, sorry. The reference is Microsoft shell controls and automation.

casey.

[krtxmrtz]

oh so sorry, i could not see your name there. i apologize.

but i think i need to add reference for it because it generates an error for

Dim sh As New Shell32.Shell
Dim str1 As Shell32.Folder2

if you can please tell me as i am not able to recall it.

thank you.

This is it.

[Harsh Gupta]

i tried running your code and it's generating an error "Object doesn't support this property or method" at the MsgBox line.

[vbasicgirl]

Maybe its a 98 thing, did you copy and paste the code ?, if you did try typing it out to see if the property or method is there and if not is there an alternative to grab the path.

casey.

[Harsh Gupta]

Maybe its a 98 thing, did you copy and paste the code ?, if you did try typing it out to see if the property or method is there and if not is there an alternative to grab the path.

casey.

actually i changed your code a little bit. i changed "Shell32.Folder2" to "Shell32.Folder" because if i use "Shell32.Folder2" then on clicking "yes" on dialog box it returns an error 13 : "type mismatch" and highlights

Set str1 = sh.BrowseForFolder(Me.hWnd, "Select a Folder", 0, ssfDRIVES)

and if i use ".Folder" tehn .Self thing is not available.

EDIT: was that code running on your machine??

[litlewiki]

try out karl e stevensons home page he's got loads of codes .may be it can help you k.e.s

[Harsh Gupta]

try out karl e stevensons home page he's got loads of codes .may be it can help you k.e.s

litlewiki,

he is Karl E. Peterson and not Stevenson. and sorry, i couldnot find any such utility there. but probably take a much better and deeper look at the link later. thank you anyways.