改变目录法取所有有效盘符2法
'方法一:.版本 2.支持库 spec
.子程序 __启动窗口_创建完毕
取所有有效盘符 ()
.子程序 取所有有效盘符
.局部变量 所有盘符数组, 文本型, , "0"
.局部变量 i, 整数型
所有盘符数组 ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }
.计次循环首 (取数组成员数 (所有盘符数组), i)
.如果真 (改变目录 (所有盘符数组 ＋ “:”))
调试输出 (所有盘符数组 )
.如果真结束
.计次循环尾 ()'方法二:.版本 2
.支持库 spec
取所有有效盘符 ()
.子程序 取所有有效盘符
.局部变量 i, 整数型
.局部变量 盘符, 文本型
.计次循环首 (26, i)
盘符 ＝ 字符 (64 ＋ i)
.如果真 (改变目录 (盘符 ＋ “:”))
调试输出 (盘符)
.如果真结束
.计次循环尾 () 頂!
页:
[1]