改变目录法取所有有效盘符2法

阿杰

'方法一:

1. .版本 2
   
2. .支持库 spec
   
3. .子程序 __启动窗口_创建完毕
   
4. 取所有有效盘符 ()
   
5. .子程序 取所有有效盘符
   
6. .局部变量 所有盘符数组, 文本型, , "0"
   
7. .局部变量 i, 整数型
   
8. 所有盘符数组 ＝ { “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” }
   
9. .计次循环首 (取数组成员数 (所有盘符数组), i)
   
10. .如果真 (改变目录 (所有盘符数组 ＋ “:”))
    
11. 调试输出 (所有盘符数组 )
    
12. .如果真结束
    
13. .计次循环尾 ()

复制代码

'方法二:

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. 取所有有效盘符 ()
   
5. 
   
6. .子程序 取所有有效盘符
   
7. .局部变量 i, 整数型
   
8. .局部变量 盘符, 文本型
   
9. 
   
10. .计次循环首 (26, i)
    
11. 盘符 ＝ 字符 (64 ＋ i)
    
12. .如果真 (改变目录 (盘符 ＋ “:”))
    
13. 调试输出 (盘符)
    
14. .如果真结束
    
15. 
    
16. .计次循环尾 ()

复制代码

kk1025

頂!