System32 Klasöründeki Dosyayı Aç - Microsoft Excel

System32 içinde bulunan bir dosyanın ismi uzantısıyla beraber verildiğinde bu dosyayı açan VBA kodudur.

Kod


Option Explicit

Sub System32DosyasiAc(dosya As String)
    Dim wScriptShell As Object
    
    Set wScriptShell = CreateObject("WScript.Shell")
    wScriptShell.Run "C:\Windows\System32\" & dosya
End Sub

Sub OrnekKullanim()
    System32DosyasiAc "cleanmgr.exe"
End Sub

Dosya Listesi

Etiketler

microsoft excel microsoft excel vba microsoft excel vba dosya klasör işlemleri