Hi,
Can anyone tell me how to obtain a list of files and folders within any folder in VB5, in order that I can process the files found. I'm not sure what control to use for this.
Your help would be greatly appreciated.
Many Thanks
Sean
Printable View
Hi,
Can anyone tell me how to obtain a list of files and folders within any folder in VB5, in order that I can process the files found. I'm not sure what control to use for this.
Your help would be greatly appreciated.
Many Thanks
Sean
Now..quick.. go and refer the VB5 help file for
information about this function..
Dir
Code:This example uses the Dir function to check if certain files and directories exist.
Dim MyFile, MyPath, MyName
' Returns "WIN.INI" if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")
' Returns filename with specified extension. If more than one *.ini
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")
' Call Dir again without arguments to return the next *.INI file in the
' same directory.
MyFile = Dir
' Return first *.TXT file with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)
' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop
This will list all files in a specific directory.
If you'd like to list files with a certain extension:Code:Dim FileFinder
FileFinder = Dir("C:\")
Do Until FileFinder = ""
List1.AddItem LCase(FileFinder)
FileFinder = Dir
Loop
Code:Dim FileFinder
FileFinder = Dir("C:\*.exe")
Do Until FileFinder = ""
List1.AddItem LCase(FileFinder)
FileFinder = Dir
Loop