list all files in directory, add to list box

Printable View

Apr 22nd, 2002, 05:19 PM
Skitchen8

list all files in directory, add to list box

well, i think the title says it all... no FSO plz... i know the dir function can do this, but i don't know how...
Apr 22nd, 2002, 05:25 PM
Kevin_0011

What does FSO mean?

Why wouldn't you just use the File List Box control? (The intrinsic one)

Good day Eric:) This should solve your problem.

VB Code:

Private Sub Command1_Click()
    Dim arrFiles() As String
    Dim i As Long
    
    arrFiles = DirList("C:\windows\*.*")
    'You need the \*.* or it won't work...
    
    For i = 0 To UBound(arrFiles)
        List1.AddItem arrFiles(i)
    Next
End Sub
 
Function DirList(strDir As String) As String()
    'returns a 0 based array with the files in strDir
    'Can contain a pattern such as "*.*"
    'NOTE - subfolders not supported at this time
    Dim Count As Integer
    Dim sFiles() As String
    Dim sFile As String
    
    sFile = Dir$(strDir)
    Count = -1
    Do
        Count = Count + 1
        ReDim Preserve sFiles(Count)
        sFiles(Count) = sFile
        sFile = Dir$
    Loop Until sFile = ""
    DirList = sFiles
End Function

Apr 22nd, 2002, 05:35 PM
slx47

im not sure how to do it but try going here:

www.google.com

VB Code:

Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,  ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
 
Private Sub Command1_Click()
    Dim r As Long
    r = SendMessageStr(List1.hwnd, &H18D, &H20, "C:\*.*")
End Sub

Apr 22nd, 2002, 06:40 PM
Hack

peet: That is a VERY nice little snippet of code!

:D
Apr 22nd, 2002, 07:33 PM
Skitchen8

so many choices of code, so much use for them... now i gotta decide which one i want to use...
Apr 22nd, 2002, 07:34 PM
Skitchen8

Quote:

Originally posted by Kevin_0011
What does FSO mean?

Why wouldn't you just use the File List Box control? (The intrinsic one)

fso = teh file system object = teh crap

i don't use the file list box control because im retarded and i like having things done in code, i use the least amount of intrinsic controls i can just because it makes me feel special to do it myself (by copying other peoples codes :D)

Quote:

Originally posted by peet

VB Code:

Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private Sub Command1_Click()
Dim r As Long
r = SendMessageStr(List1.hwnd, &H18D, &H20, "C:\*.*")
End Sub

cooooooooooooooooolness...:cool:

Apr 23rd, 2002, 04:12 AM

kewl code snippet

Question... in
<code>
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

i have an error of Object variable not set on the list1.hwnd, what is list1 supposed to be?

Reason I ask, I was thinking of making a small program just to search my cd's and make a list of every cd, and whats on it...
This would come in handy..
thanks
Apr 23rd, 2002, 04:31 AM

Re: kewl code snippet

Quote:

Originally posted by Myrrdan
i have an error of Object variable not set on the list1.hwnd, what is list1 supposed to be?

..erm, that's a list box, just add one to your form (it will be called list1 by default).

Re: list all files in directory, add to list box

Quote:

Originally Posted by nishantp

Good day Eric:) This should solve your problem.

VB Code:

Private Sub Command1_Click()
    Dim arrFiles() As String
    Dim i As Long
    
    arrFiles = DirList("C:\windows\*.*")
    'You need the \*.* or it won't work...
    
    For i = 0 To UBound(arrFiles)
        List1.AddItem arrFiles(i)
    Next
End Sub
 
Function DirList(strDir As String) As String()
    'returns a 0 based array with the files in strDir
    'Can contain a pattern such as "*.*"
    'NOTE - subfolders not supported at this time
    Dim Count As Integer
    Dim sFiles() As String
    Dim sFile As String
    
    sFile = Dir$(strDir)
    Count = -1
    Do
        Count = Count + 1
        ReDim Preserve sFiles(Count)
        sFiles(Count) = sFile
        sFile = Dir$
    Loop Until sFile = ""
    DirList = sFiles
End Function

How could we be able to also let the other files show ,those in submaps ?

I thought by doing it by putting all the other maps in a different list and to use the command every time, but is there a beter way ?

May 27th, 2009, 05:05 PM
Code Doc

Re: list all files in directory, add to list box

Yet another alternative (perhaps more traditional):

Code:

Private Sub Command1_Click() Dim NameFile As String, SubDir As String SubDir = CurDir$ & "\*.*" ' Change CurDir to whatever directory is being searched NameFile = Dir$(SubDir) Do While NameFile <> vbNullString List1.AddItem NameFile NameFile = Dir$ Loop End Sub
May 28th, 2009, 05:59 PM
Jarhead

Re: list all files in directory, add to list box

You can use the FindFile and FindNextFile api's. I personally find it much better to use api's.

I've got a class somewhere's, just give me a minute to find it, and I will post it.
May 28th, 2009, 06:18 PM
Code Doc

Re: list all files in directory, add to list box

Quote:

Originally Posted by Jarhead

You can use the FindFile and FindNextFile api's. I personally find it much better to use api's.

I've got a class somewhere's, just give me a minute to find it, and I will post it.

Not sure how these API's are going to beat post #13. 'Course, I could be wrong. :afrog:
May 28th, 2009, 06:31 PM
Jarhead

1 Attachment(s)

Re: list all files in directory, add to list box

Basic example, and you will need to change it to fit your needs.

Re: list all files in directory, add to list box

Thanks guy's, although I found another code :

VB Code:

Function FolderContents(ByRef thePath As String, ByRef bolRecurseDirectories As Boolean, ByRef scratchfile As String)
    Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim objFolder
    Set objFolder = objFSO.getFolder(thePath)
    Call DisplayFolderContents(objFolder, bolRecurseDirectories, outFile)
    Set objFolder = Nothing
    Set objFSO = Nothing
End Function
Function DisplayFolderContents(objFolder, ByVal bolRecurseDirectories As Boolean, outFile)
    Dim objFile, strPath, strExtension
    For Each objFile In objFolder.Files
        strPath = objFile.Path
        If FileLen(Trim(strPath)) <> 0 Then List3.AddItem (objFile.Path)
    Next
    ' Recurse subdirectories if necessary
    Dim objSubFolder
    If bolRecurseDirectories Then
        For Each objSubFolder In objFolder.SubFolders
            DisplayFolderContents objSubFolder, bolRecurseDirectories, outFile
        Next
    End If
End Function
Private Sub Command1_Click()
FolderContents Text1.Text, True, ""
end sub

This can handle little maps, but if I'd try to use it on c:
then the program stops responding...

Jun 1st, 2009, 06:42 PM
Jarhead

Re: list all files in directory, add to list box

He said no fso, lol.
Jun 1st, 2009, 07:08 PM
Code Doc

Re: list all files in directory, add to list box

Quote:

Originally Posted by Jarhead

He said no fso, lol.

That's another reason why I like post #13. :ehh:
Jun 2nd, 2009, 01:43 PM
ikkeugh

Re: list all files in directory, add to list box

Quote:

Originally Posted by Jarhead

He said no fso, lol.

I don't mind if it's fso or not :p
only if it's fast
Jun 2nd, 2009, 01:48 PM
Hack

Re: list all files in directory, add to list box

Did you try CodeDoc's suggestion in #13?
Jun 2nd, 2009, 03:04 PM
ikkeugh

Re: list all files in directory, add to list box

Quote:

Originally Posted by Hack

Did you try CodeDoc's suggestion in #13?

yes, but it only shows the files in c , not in the submaps
and I want all the files to be showed.
I know this could take a long time, but mine stoppes completely