我希望有人向我解释这段代码的作用

问题描述

Dim W As Object
        Dim E As String
        W = CreateObject("Wscript.shell")
        If VB.Left(Extension, 1) <> "." Then
            E = "." & Extension & "\"
        Else
            E = Extension & "\"
            Extension = Mid(Extension, 2)
        End If
        W.regwrite("HKCU\" & E, Extension & " File")
        W.regwrite("HKCU\" & Extension & " File\", Description)
        W.regwrite("HKCU\" & Extension & " File\DefaultIcon\", FileIcon)
        W.regwrite("HKCU\" & Extension & " File\Shell\Open\Command\", ProgramPath & " %1")
        W.regwrite("HKCU\" & Extension & " File\Shell\", "Open")
    End Sub

谢谢所有人

thanks all

推荐答案

这篇关于我希望有人向我解释这段代码的作用的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！