The procedure for requesting AWR support has changed. Please read all about the new AWR product support process.
Page tree
Skip to end of metadata
Go to start of metadata
 Dim objFileSystem As Scripting.FileSystemObject
Sub Main

        Dim objFolder As Scripting.Folder
        Dim objFile As Scripting.File


        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

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
    Next subFolder
End Sub