The procedure for requesting AWR support has changed. Please read all about
the new AWR product support process.
The file system objects are windows objects that allow you to easily process file and folder hierarchy.
Must add the " Scripting How-To: Using the Microsoft Scripting Runtime library with AWR Scripting " reference.
The code below starts at the folder set in the pathr variable. It then prints the full path of each folder and then each file in that folder with a tab.
Dim objFileSystem As Scripting.FileSystemObject
Sub Main
Dim objFolder As Scripting.Folder
Dim objFile As Scripting.File
Debug.Clear
pathr = "C:\Documents and Settings\ryan\Desktop\751_example_tests\Performance"
Set objFileSystem = New Scripting.FileSystemObject
Set objFolder = objFileSystem.GetFolder(pathr)
Debug.Print objFolder.Path
process(objFolder.Path)
End Sub
Sub process (nm As String)
Dim subFolder As Scripting.Folder
Dim subFile As Scripting.File
Dim newFolder As Scripting.Folder
Set newFolder = objFileSystem.GetFolder(nm)
For Each subFile In newFolder.Files
Debug.Print vbTab & subFile.Name
Next subFile
For Each subFolder In newFolder.SubFolders
Debug.Print subFolder.Path
process(subFolder.Path)
Next subFolder
End Sub