Workbooks.open在特定的USB驱动器上

Question

我想知道如何在打开驱动器之前测试它.例如,如果USB位于E:或F:这样的东西:

if (?DriveExist?) 
   Workbooks.Open Filename:="E:"
else 
   Workbooks.Open Filename:="F:"

谢谢您的帮助

Answer 1

这样做:

Function driveexists(DriveName As String)
    Dim objDrv      As Object
    driveexists = False

    For Each objDrv In CreateObject("Scripting.FileSystemObject").Drives
       If DriveName = objDrv.DriveLetter Then driveexists = True
    Next

    Set objDrv = Nothing
End Function

所以你要用它作为

IF driveexists("F") then...