VBA ile Program Uzantılarını (.exe / .vbs gibi) Kopyalama - Yapıştırma

[Lenadro]

Merhaba Arkadaşlar,

Formlarda aradım ama bulamadığım bir konuda yardımlarınızı rica edeceğim. Kullanacağım bir projede belirlenen yol üzerindeki .exe uzantılı programı vba kodu ile kopyalayarak, hedeflenen klasör içerisine yapıştırmak istiyorum.

Bu konuda destekçi olan herkese ayrı ayrı teşekkür ediyorum.

Örnek:

veriKlasor = "C:\Users\" & Environ("Username") & "\Downloads\chromedriver_win32\chromedriver.exe" 'Kopyalanacak Alan
hedefKlasor = "C:\Users\" & Environ("Username") & "\AppData\Local\SeleniumBasic\" 'Yapıştırılacak Alan

 

[Haluk]

FileCopy metodunu araştırın ....

.

 

[veyselemre]

Fikrim geldi derler ya ilham verdiniz.

Sub chromeDriverDownloadAndExtract()
'Ekleyiniz.. Tools -> Reference -> "Microsoft Shell Controls & Automation"
    Dim myURL$, zipFile$, extractTo$, oStream As Object
    
    myURL = "https://chromedriver.storage.googleapis.com/93.0.4577.63/chromedriver_win32.zip"
    zipFile = "C:\Users\" & Environ("Username") & "\Downloads\chromedriver_win32.zip"
    extractTo = "C:\Users\" & Environ("Username") & "\AppData\Local\SeleniumBasic"
    
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", myURL, False
        .send
        
        If .Status = 200 Then
            Set oStream = CreateObject("ADODB.Stream")
            oStream.Open
            oStream.Type = 1
            oStream.Write .responsebody
            oStream.SaveToFile zipFile, 2 ' 1 = no overwrite, 2 = overwrite
            oStream.Close
            Set oStream = Nothing
            
            With New Shell
                .Namespace(extractTo).CopyHere .Namespace(zipFile).items
            End With
        End If
    
    End With
End Sub

 

[Haluk]

@veyselemre denemedim ama mantigi guzel, hos birsey olmus dostum.

Edit (16:40): Şimdi denedim, gayet güzel olmuş....

.

 

[Lenadro]

@Haluk Bey, @veyselemre Bey,

Desteklerinizden ötürü çok teşekkür ederim.

İlgili sorunumu çözdüm. Bu platformda bilgi alacak arkadaşlar için kodu alt kısma yazıyorum.

Sağlıcakla kalmanız dileğiyle...

Sub File_Copy()
Dim FSO
Dim Source_File As String
Dim Source_Folder As String
Dim New_Folder As String

'On Error Resume Next

Source_File = "chromedriver.exe"
      
      'Burada İndirilenler klasörünün içerisindeki .exe uzantısını kopyalıyoruz.
        Source_Folder = "C:\Users\" & Environ("Username") & "\Downloads\chromedriver_win32\"    'Kopyalanacak Alan

      'Burada sistemin kurulmuş olduğu alana dosyayı atacağımızdan dolayı burasını sabit bırakıyoruz.
        New_Folder = "C:\Users\" & Environ("Username") & "\AppData\Local\SeleniumBasic\"    'Yapıştırılacak Alan

        Set FSO = CreateObject("Scripting.FileSystemObject")
        FSO.CopyFile (Source_Folder & Source_File), New_Folder, True
        
        MsgBox "Kopyalama İşlemi Başarıyla Yapılmıştır.", vbInformation, "Excel VBA - Selenium Dosya Kopyala Fonksiyonu"
        
End Sub

 

[veyselemre]

Sub test()
    FileCopy "C:\Users\" & Environ("Username") & "\Downloads\chromedriver_win32\chromedriver.exe", _
             "C:\Users\" & Environ("Username") & "\AppData\Local\SeleniumBasic\chromedriver.exe"
End Sub