易语言实现 取磁盘剩余空间最多的盘符 返回可用空间容量最多的盘符 (返回:A~Z,文本型)

CNWTEPRG

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. 
    
13. 信息框 (取剩余空间最多的盘符 (), 0, , )
    
14. 
    
15. .子程序 取剩余空间最多的盘符, 文本型, 公开, 返回可用空间最多的磁盘盘符:A~Z
    
16. .局部变量 剩余空间最大, 整数型
    
17. .局部变量 计数, 整数型
    
18. .局部变量 盘符, 文本型
    
19. .局部变量 剩余空间, 整数型
    
20. .局部变量 返回值, 文本型
    
21. 
    
22. 剩余空间最大 ＝ 0
    
23. .变量循环首 (65, 90, 1, 计数)
    
24.     盘符 ＝ 字符 (计数)
    
25.     剩余空间 ＝ 取磁盘剩余空间 (盘符)
    
26.     .如果真 (剩余空间 ＞ 剩余空间最大)
    
27.         剩余空间最大 ＝ 剩余空间
    
28.         返回值 ＝ 盘符
    
29.     .如果真结束
    
30. 
    
31. .变量循环尾 ()
    
32. 返回 (返回值)
    
33. 
    

复制代码