Список файлов и папок в заданной директории - VB

Формулировка задачи:

Всем здравствуйте. Скажите как получить дерево файлов и папок в заданной дериктории? И все это в двумерный массив засунуть из 3х столбцов, в который если это папка в соседние столбцы дописывать 0 0 0755? К такому вот виду, например:

                    Листинг программы
                
 
                            
                        
system/app/AdupsFota 0 0 755
system/app/AdupsFota/AdupsFota.apk 0 0 644
system/app/AdupsFota/arm 0 0 755
system/app/AdupsFota/arm/AdupsFota.odex 0 0 644
system/app/AdupsFotaReboot 0 0 755
system/app/AdupsFotaReboot/AdupsFotaReboot.apk 0 0 644
system/app/AdupsFotaReboot/arm 0 0 755
system/app/AdupsFotaReboot/arm/AdupsFotaReboot.odex 0 0 644
system/app/ApplicationsProvider 0 0 755
system/app/ApplicationsProvider/ApplicationsProvider.apk 0 0 644
system/app/ApplicationsProvider/arm 0 0 755
system/app/ApplicationsProvider/arm/ApplicationsProvider.odex 0 0 644
system/app/AtciService 0 0 755
system/app/AtciService/AtciService.apk 0 0 644
system/app/AtciService/arm 0 0 755
system/app/AtciService/arm/AtciService.odex 0 0 644
system/app/AutoDialer 0 0 755
system/app/AutoDialer/AutoDialer.apk 0 0 644
system/app/AutoDialer/arm 0 0 755
system/app/AutoDialer/arm/AutoDialer.odex 0 0 644
system/app/BSPTelephonyDevTool 0 0 755
system/app/BSPTelephonyDevTool/BSPTelephonyDevTool.apk 0 0 644
system/app/BSPTelephonyDevTool/arm 0 0 755
system/app/BSPTelephonyDevTool/arm/BSPTelephonyDevTool.odex 0 0 644
system/app/BasicDreams 0 0 755
system/app/BasicDreams/BasicDreams.apk 0 0 644
system/app/BasicDreams/arm 0 0 755
system/app/BasicDreams/arm/BasicDreams.odex 0 0 644
system/app/BatteryWarning 0 0 755
system/app/BatteryWarning/BatteryWarning.apk 0 0 644
system/app/BatteryWarning/arm 0 0 755
system/app/BatteryWarning/arm/BatteryWarning.odex 0 0 644
system/app/Bluetooth 0 0 755
system/app/Bluetooth/Bluetooth.apk 0 0 644
system/app/Bluetooth/arm 0 0 755
system/app/Bluetooth/arm/Bluetooth.odex 0 0 644
system/app/Bluetooth/lib 0 0 755
system/app/Bluetooth/lib/arm 0 0 755
system/app/Bluetooth/lib/arm/libbluetooth_jni.so 0 0 644 /system/lib/libbluetooth_jni.so
system/app/Browser 0 0 755
system/app/Browser/Browser.apk 0 0 644
system/app/Browser/arm 0 0 755
system/app/Browser/arm/Browser.odex 0 0 644
system/app/Calculator 0 0 755
system/app/Calculator/Calculator.apk 0 0 644
system/app/Calculator/arm 0 0 755
system/app/Calculator/arm/Calculator.odex 0 0 644

Решение задачи: «Список файлов и папок в заданной директории»

textual
                            Листинг программы 
                        
 If GetAttr(Pth + "" + cD$) And vbDirectory Then