zaten elinizde bir klasör kontrol kodu varmış büyük ihtimalle bu kod call yada function adı direkt olarak yazılmak sureti ile çağrılır

functionu
function klasörkontrol(klasöradi as string)

diye düzenleyin ve kodu çağırdığınız yere
for i=1 to 6 step 1
select case i
case 1
klasörkontrol("1.klasör")
case 2
klasörkontrol("2.klasör")

diye bir döngü ile bir çok klasörü kontrol edebilirsin