我希望有人向我解释这段代码的作用 [英] i want someone explain to me what this code do
本文介绍了我希望有人向我解释这段代码的作用的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
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
推荐答案
似乎该代码正在为应用程序设置文件关联.
It looks like that code is setting a file association for the application.
某些字符串操作正在完成扩展中包含的值.
这段代码是将扩展扩展名写入某些键,然后将其写入注册表的Current_User部分.
Certain string operations are being done on the value contained inside Extension.
This code is writing concatenating Extension to some keys and then writing them to the Current_User part of the registry.
这篇关于我希望有人向我解释这段代码的作用的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文