셀레니움 내가 원하는 폴더에 다운로드하기

Sub 다운로드폴더()

    Dim driver As New WebDriver
    Dim downloadPath As String
    Dim userProfile As String

    ' 현재 사용자 경로 가져오기 (환경 변수 USERPROFILE 사용)
    userProfile = Environ("USERPROFILE")
    
    ' 다운로드 경로 설정 (Haja 폴더로 설정)
    downloadPath = userProfile & "\Desktop\Haja"
    
    ' 드라이버에 다운로드 경로 설정
    driver.SetPreference "download.default_directory", downloadPath

    ' 크롬 브라우저 시작
    driver.Start "chrome"

   ' 여기에 다운로드를 위한 추가 코드 작성

    ' 특정 사이트로 이동

    driver.get "https://www.naver.com"  

 

    
End Sub