чтение папки (диска)
- 5 folder$="file:///e:/":rem в этой строке находится путь к папке (или диску), которую нам нужно прочесть
- 10 dim buf$(65536):n%=0
- 20 trap 300:a$=readdir$(folder$ + "*")
- 30 if a$="" then goto 70
- 40 buf$(n%)=a$:n%=n%+1
- 50 a$=readdir$("")
- 60 goto 30
- 70 if n%=0 then goto 200
- 75 dim c$(n%)
- 80 for i%=0 to n%-1
- 90 c$(i%)=buf$(i%)
- 100 next i%
- 110 mc%=choiceform("Files","OK","Exit",folder$,c$,0)
- 120 if mc%=-1 then end
- 130 rem далее идут действия с выбранным файлом (путь к файлу - folder$ + c$(mc%))
- 200 mm%=messageform("Files","OK","Exit",folder$,"Folder is empty"):rem папка пуста
- 210 end
- 300 mm%=messageform("Files","OK","Exit",folder$,"Folder is system or isn't exist!"):rem папка системная или не существует!
- 310 end
этот код читает любую папку (или диск) и выводит в чойсформу все файлы внутри папки (если папка пуста, системная или вообще не сущ., код говорит об этом).
