CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to use Dir$ function to get filenames and display in a list box or something.
strFilename = Dir$(strPath & "*.*", 63)
strfullpath = strPath & strFilename
Do Until Len(strFilename) = 0
    If Not (strFilename = "." Or strFilename = "..") Then
        'Add to list (you decide) with full path recorded somewhere and filename 
        'displayed
        lst.Add strfullpath, strFilename
    End If
 
    'blank file name as otherwise it won't be set to zero length and you'd 
    'endlessly loop
    strFilename = ""
    strFilename = Dir$
Loop