EmersonH.Com

Transforming Knowledge into Power

  • Increase font size
  • Default font size
  • Decrease font size
Home VB 6 File System Object OBJ List All Files in a Folder

List All Files in a Folder

Tuesday, 22 September 2009 20:22 administrator
E-mail Print

'REQUIRES: Reference to Micrsoft Scripting Runtime

Dim oFs As New FileSystemObject
Dim oFolder As Folder
Dim oFile As File

Set oFolder = oFs.GetFolder(FullPath)


For Each oFile In oFolder.Files
msgbox oFile.Name
Next
End If

Last Updated on Monday, 21 December 2009 16:59