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

我想知道如何在打开驱动之前testing驱动器。 例如，如果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...