Forum Discussion

Alina's avatar
Alina
Occasional Contributor
12 years ago

Get Folder Contents

Hi, I've managed to get the list of subfolders in a folder but not the files in it. I understand there is a getFile routine, however i'd like to combine both 'GetFolder' and 'GetFile' routin...
IndianTCNoob's avatar
IndianTCNoob
Occasional Contributor
12 years ago
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



'...