Drive.exists（从A1：A26的单元格中selectstring）

我目前正在研究一个macros来检查是否正在使用某个驱动器。 我得到的代码工作，但是它只是基于我提供的一个字母驱动器。 我想要它做的是，我希望它在A到Z之间循环，直到我find一个不被使用的。

DriveExists("D:\") 

正如你所看到的（“D：\”）是我指定它find的。 我想要的是什么

 DriveExists("Cells A1:A26") 

无法得到代码工作，将不胜感激一些帮助！

提前致谢！

Answer 1

就像是：

 Sub Orac() Dim objFSO As Object Dim rng1 As Range Dim rng2 As Range Set objFSO = CreateObject("scripting.filesystemobject") Set rng1 = Range("A1:A26") For Each rng2 In rng1.Cells If objFSO.driveexists(rng2.Value) Then MsgBox rng2 & " exists", vbExclamation Exit For End If Next End Sub