Get Folder Contents

Sure.

 '...

   

    dim path, folder, logfolder, i

    

    path = ... 'specify path to the folder here

    set folder = aqFileSystem.GetFolderInfo(path)

    logfolder = Log.CreateFolder(folder.Name)

    Call Log.PushLogFolder(logfolder)

    for i = 0 to folder.SubFolders.count-1

        call Log.CreateFolder(folder.SubFolders.Item(i).Name, "Folder")

    next

   for i = 0 to folder.Files.count-1

        call Log.Message(folder.Files.Item(i).Name, "File")

   next



'...

I use



var foundFiles = aqFileSystem.FindFiles(myDir, *.txt);



where



   aqFileSystem.FindFiles(Path, SearchPattern, SearchInSubDirs)



Check it out in the help as to how to iterate through the files! Of course the "SearchPattern" can be "*.*"



Here's the jscript example from the help:



function FileFinder()

{

  var foundFiles, aFile;

  foundFiles = aqFileSystem.FindFiles("C:\\Work\\", "*.exe");

  if (foundFiles != null)

    while (foundFiles.HasNext())

    {

      aFile = foundFiles.Next();

      Log.Message(aFile.Name);

    }

  else

    Log.Message("No files were found.");

}



hope that helps

Mark

You can also try GetFolderInfo. It returns the aqFolderInfo object containing detailed information about the specified folder, including its subfolders and files. For example, you can post folder contents to the test execution log:

//...



    path = ... //specify path to the folder here

    folder = aqFileSystem.GetFolderInfo(path)

    logfolder = Log.CreateFolder(folder.Name)

    Log.PushLogFolder(logfolder)

    for (var i = 0;i < (folder.SubFolders.count);i++)

      {

        Log.CreateFolder(folder.SubFolders.Item(i).Name, "Folder")

      }

   for (i = 0;i < (folder.Files.count);i++)

      {

        Log.Message(folder.Files.Item(i).Name, "File")

      }  



//...

Thanks Mark and TC Guy,

TC Guy, could you please post the VB equivelent of the code you posted, my project is in vbscript its not recognising any of the curly brackets etc..

it would be a great help !



Thank you!!!!

TC Guy - Thanks thats worked exactly how I wanted it to!



Cheers,