unzip multiple zip files in sub folders

[Anonymous]

Execute- can take care of extracting single zip file.

However, i need to deal with many zip files on loading. Can some one help me how to unzip multiple zip files in sub sub folders and load extracted data ?

[Alejandro_Hernández]

this should help:

sub BrowseDirectory (Root)

    for each vFileName in filelist (Root&'\*.zip')

        trace found zip file  $(vFileName);

        //extact

        //load

        //etc.

    next vFileName

    for each vDirectory in dirlist (Root&'\*' )

     call BrowseDirectory (vDirectory)

     next vDirectory

end sub

call BrowseDirectory ('C:')