Listing files with a For...Each loop : FileSystemObject « File Path « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
Microsoft Office PowerPoint 2007 Tutorial
Microsoft Office Excel 2007 Tutorial
Microsoft Office Word 2007 Tutorial
VBA / Excel / Access / Word » File Path » FileSystemObject 
Listing files with a For...Each loop
 
     Sub FileListDemo()
         Dim objFSO As Object
         Dim objFolder As Object
         Dim objFile As Object
         Set objFSO = CreateObject("Scripting.FileSystemObject")
         Set objFolder = objFSO.GetFolder("C:\")
         For Each objFile In objFolder.Files
           Debug.Print objFile.name
         Next objFile

     End Sub

 
Related examples in the same category
1.Copying a File
2.Display selected file information
3.Delete file by using FileSystemObject
4.Delete Folder by using FileSystemObject
5.Recursive Search using the FileSystemObject Model
java2s.com  |  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.