Public Property Get ZipPath(browser As BrowserName) As String
Select Case browser
Case BrowserName.Chrome
ZipPath = CreateObject("Shell.Application").Namespace("shell:Downloads").Self.path & "\chromedriver_win32.zip"
Case BrowserName.Edge
Select Case Is64BitOS
Case True: ZipPath = CreateObject("Shell.Application").Namespace("shell:Downloads").Self.path & "\edgedriver_win64.zip"
Case Else: ZipPath = CreateObject("Shell.Application").Namespace("shell:Downloads").Self.path & "\edgedriver_win32.zip"
End Select
End Select
End Property
ZipPathでダウンロードフォルダを取得する際に、Cドライブ以外にダウンロードフォルダがあると正しく取得できません。 下記のように変更することで正しく取得できました。 下記の変更適用をご検討いただけますと幸いです。
Public Property Get ZipPath(browser As BrowserName) As String Select Case browser Case BrowserName.Chrome ZipPath = CreateObject("Shell.Application").Namespace("shell:Downloads").Self.path & "\chromedriver_win32.zip" Case BrowserName.Edge Select Case Is64BitOS Case True: ZipPath = CreateObject("Shell.Application").Namespace("shell:Downloads").Self.path & "\edgedriver_win64.zip" Case Else: ZipPath = CreateObject("Shell.Application").Namespace("shell:Downloads").Self.path & "\edgedriver_win32.zip" End Select End Select End Property