FileSystemObject model - how to list files in a directory (VB6)

[Killer42]

Here's a simple VB6 code snippet that uses the FileSystemObject model to find all the files in C:\Temp and load their names into a listbox. To use this sample, you need to set things up as follows:

• Create a new project in VB6
• Add a form (this will probably happen by default, anyway)
• Pull down the Project menu and choose References.
• Find Microsoft Scripting Runtime and fill in the checkbox to select it. Click OK.
• Add a ListBox control to the form - name will be List1.
• Add a command button to the form - name will be Command1.
• Double-click on the command button to bring up the Click event procedure.
• Paste in the following code...
  

  Dim fso As New FileSystemObject
  Dim fld As Folder
  Dim fil As File
  Set fld = fso.GetFolder("C:\Temp")
  For Each fil In fld.Files
    List1.AddItem fil.Name
  Next
  Set fil = Nothing
  Set fld = Nothing
  Set fso = Nothing

  Note, some browsers copy the line numbers, so you may need to edit them out before compiling the code.
• Modify such details as the directory (C:\Temp) if required.
• Compile and run.
• Click the command button to fill the listbox with the names of the files in the specified directory.

[winja]

Hi, i am learning vbscript. Can you help me with vbscript, or is it only vb? I am a vitial impared person and find it difficult to get a good book on vbscript. I have some more questions, but enough for now. Thank you.

[Killer42]

Hi, i am learning vbscript ...

We're glad to try and help with VBScript, but we might not always be aware of the exact differences between that and VB. Certainly I'd expect FileSystemObject to work pretty much the same.

Please post any VB or VBScript questions in the Visual Basic forum.

[ganeshsraman21]

hi, iam learning vb6 now. i want to add all files in a folder to a list by using for..next loop. i dont want to use for each loop. is it possible to do so...please help me