Set fso = CreateObject("Scripting.FileSystemObject")
Set w = createobject("wscript.shell")
sub error()
msgbox "該目錄不是JDK安裝目錄！",16 + 4096,"設定JDK環境變數(By無良風箏Fly)"
main()
end sub
'==================自動查找JDK路徑(在Program Files檔案夾中)==================
function findJava()
dim java_path
windows_disk = fso.getdrivename(fso.getspecialfolder(WindowsFolder))
if fso.folderexists(windows_disk&"\Program Files\Java\") then
set java_path = fso.getfolder("C:\Program Files\Java\")
elseif fso.folderexists(windows_disk&"\Program Files (x86)\Java\") then
set java_path = fso.getfolder("C:\Program Files (x86)\Java\")
end if
For Each folder In java_path.subfolders
If InStr(1, folder, "jdk") > 0 Then
if fso.fileexists(folder&"\bin\java.exe") then
findJava = folder
end if
end if
next
end function
sub main()
folder = findJava()
java = folder
autoSet = true
if folder = "" then
Set objShell = CreateObject("Shell.Application")
Set folder = objShell.BrowseForFolder(0,"選擇JDK的安裝目錄:"&chr(13)&"By無良風箏Fly"&chr(13)&"設定環境變數需要一些時間，請耐心等待",0,17)
if folder is nothing then
wscript.quit
end if
if folder.self.path = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" then
error()
end if
set java = fso.getfolder(folder.self.path)
autoSet = false
end if
if fso.fileexists(java&"\bin\java.exe") then
java_home = w.Environment("user").Item("java_home")
if java_home <> "" then
msgbox "已經不需要再設定了！",48 + 4096,"設定JDK環境變數"
else
if autoSet then
msgbox "已找到JDK目錄"&chr(13)&"將在點擊確定后進行設定，可能需要一些時間",64,"設定JDK環境變數(By無良風箏Fly)"
end if
w.Environment("user").Item("java_home") = java
w.Environment("user").Item("Path") = w.Environment("user").Item("Path")&"%java_home%\bin"
w.Environment("user").Item("classpath") = w.Environment("user").Item("classpath")&";.;%java_home%\lib\tools.jar;%java_home%\lib\dt.jar"
msgbox "環境變數設定完畢！",64 + 4096,"設定JDK環境變數(By無良風箏Fly)"
end if
else
error()
end if
end sub
main()
這是vbs的代碼，程序我用 call 呼叫。但是還是有報錯
uj5u.com熱心網友回復：
直接復制過去。uj5u.com熱心網友回復：
復制過去要是能直接用我也不會來發帖了 語法錯誤uj5u.com熱心網友回復：
你在搞個工具自動安裝java嗎uj5u.com熱心網友回復：
1) 把開始兩句 Set 移到 Main() 里面開頭處。2) error() 里面的 main() 呼叫應該去掉——相互呼叫不結束。
3) 把 error() 呼叫改為 Call error。
4) 最后一句 main() 去掉。
uj5u.com熱心網友回復：
自動配置java的環境變數
uj5u.com熱心網友回復：
你好，
if fso.folderexists(windows_disk&"\Program Files\Java\") then
這類陳述句提示語法錯誤
uj5u.com熱心網友回復：
運算子 & 兩邊要有空格。大多數是基本的語法問題，建議先把MSDN幫助中 VBREF98.CHM 的參考部分瀏覽一遍。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/63973.html
標籤：VB基礎類
上一篇：求高手，以下表格如何求和！！
下一篇：zip檔案結構分析