Dim MyVar
MyVar = MsgBox ("本程序改编于网上的源码,谢谢使用!")
Set shell = CreateObject("Shell.Application")
Set selFolder = shell.BrowseForFolder(0, "选择jdk目录", 0, ssfDRIVES)
Set selFolderItem = selFolder.Self
JDKPath = selFolderItem.Path
If (JDKPath <>"") Then
dim wsh
Set wsh = WScript.CreateObject("WScript.Shell")
wsh.Environment("system").Item("JAVA_HOME")=JDkPath
wsh.Environment("system").Item("Path") ="%JAVA_HOME%\bin" +";" +wsh.Environment("system").Item("path")
wsh.Environment("system").Item("ClassPath") = ".;" + "%JAVA_HOME%" +"\lib\*.jar"
MyVar = MsgBox ("恭喜,完成设置!")
End I
时间: 2024-12-07 02:19:15