Identifiying Folders and Files in Windows

**ADezii** · Mar 28 '08, 02:31 AM

Originally posted by iheartvba

Hi,
I would like to know how to search through a directory and populate an MS Access table with:

A. the names of the folders in that directory

1. the names of the files in those folders

i. The size in bytes of each file in the folder

Much Appreciated

Do you need just the 1st Level Folders under the Main Folder (Sub-Folders), or do you need Sub-Sub-Folders, Sub-Sub-Sub Folders, etc.?

**iheartvba** · Mar 28 '08, 09:18 PM

A. Names of of folders in that directory: These folders will be located in Z:\Clients\ so no subfolders just the names of the folders in this directory.
B.Names of the Files: I want names of all files that exist under that folder and the sub folders, because there are sub folders in each of these folders.
C:File Size in Bytes: This is the file size of every File Identified in Point B

Apologies for the ambiguity

Thanks,

**ADezii** · Mar 28 '08, 11:37 PM

Originally posted by iheartvba

A. Names of of folders in that directory: These folders will be located in Z:\Clients\ so no subfolders just the names of the folders in this directory.
B.Names of the Files: I want names of all files that exist under that folder and the sub folders, because there are sub folders in each of these folders.
C:File Size in Bytes: This is the file size of every File Identified in Point B

Apologies for the ambiguity

Thanks,

Set a Reference to the Microsoft Scripting Runtime Library.
For test purposes I created the following Directory structure along with Files contained within each Directory. I posted the layout below:
1. C:\Clients - (24 Files)
2. C:\Clients\Fold er 1 - (17 Files)
3. C:\Clients\Fold er 2 - (14 Files)
4. C:\Clients\Fold er 3 - (30 Files)
The following code segment will:
1. List the Clients Directory and any Files container within it along with their sizes.
2. List Sub-Directories under C:\Clients along with Files in these Directories and their sizes.
I also listed sample OUTPUT from the code.
Posted below is the code segment:
[CODE=vb]
Dim fso As FileSystemObjec t
Dim fldr As Folder
Dim fldr2 As Folder
Dim fil1 As File
Dim fil2 As File

Set fso = New Scripting.FileS ystemObject

'Creates an Instance of a Folder
Set fldr = fso.GetFolder(" C:\Clients")

Debug.Print fldr.Name
For Each fil1 In fldr.Files
Debug.Print " |-- " & fil1.Name & " ==> " & _
FormatNumber(fi l1.Size, 0) & " bytes"
Next

For Each fldr2 In fldr.SubFolders
Debug.Print " |-- " & fldr2.Name & " (FOLDER)"
For Each fil2 In fldr2.Files
Debug.Print " |-- " & fil2.Name & " ==> " & _
FormatNumber(fi l2.Size, 0) & " bytes"
Next
Next[/CODE]

Identifiying Folders and Files in Windows

Identifiying Folders and Files in Windows

Comment

Comment

Comment