list all files in directory, add to list box

[Skitchen8]

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...

[Kevin_0011]

What does FSO mean?

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

[nishantp]

Good day Eric This should solve your problem.

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

[slx47]

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

www.google.com

[peet]

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

[Hack]

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

[Skitchen8]

so many choices of code, so much use for them... now i gotta decide which one i want to use...

[Skitchen8]

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 )

[nishantp]

Originally posted by peet

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...

[Myrrdan]

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

[Si_the_geek]

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).

[ikkeugh]

Good day Eric This should solve your problem.

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 ?

[Code Doc]

Yet another alternative (perhaps more traditional):

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

[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.

[Code Doc]

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.

[Jarhead]

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

[ikkeugh]

Thanks guy's, although I found another 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...

[Jarhead]

He said no fso, lol.

[Code Doc]

He said no fso, lol.

That's another reason why I like post #13.

[ikkeugh]

He said no fso, lol.

I don't mind if it's fso or not
only if it's fast

[Hack]

Did you try CodeDoc's suggestion in #13?

[ikkeugh]

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