兵三进一 发表于 2023-8-25 07:22
帅哥真是一个热心人

举手之劳,不足挂齿.

你的开源,才是大爱!

明靓 发表于 2023-8-25 02:02

帅哥真是一个热心人

1. <火山程序 类型 = "通常" 版本 = 1 />
   
2. 
   
3. 方法 枚举驱动器 <公开 类型 = 整数>
   
4. 参数 文本组 <类型 = 文本数组类>
   
5. {
   
6.     计次循环 (26)
   
7.     {
   
8.         如果 (改变驱动器 (取按键字符 (65 + 取循环索引 ())))
   
9.         {
   
10.             文本组.加入成员 (到文本 (取按键字符 (65 + 取循环索引 ())) + ":\")
    
11.             // 调试输出 (取磁盘卷标 (取按键字符 (65 + 取循环索引 ())))
    
12.         }
    
13.     }
    
14.     返回 (文本组.取成员数 ())
    
15. 
    
16. }
    

复制代码