JCSetter.vbs(Java CLASSPATH Setter)

'JCSetter.vbs(Java CLASSPATH Setter)'t0nsha<liaodunxia#gmail.com>'v1.0@2010/3/20 第一版'v1.1@2010/4/4对未设置CLASSPATH环境变量的情况进行了修正.Option ExplicitPublic Const g_program = "JCSetter"Public Const g_delimiter = ";"Public Const g_classpath = "%CLASSPATH%"'得到文件扩展名Function GetFileExtensions(fileName)GetFileExtensions = Mid(fileName, InStrRev(fileName, ".") + 1)End Function'遍历指定文件夹下的所有指定文件Function GetFilenames(currentFolderFullPath)Dim fso, currentFolder, currentFileSet, currentFile, sSet fso = CreateObject("Scripting.FileSystemObject")Set currentFolder = fso.GetFolder(currentFolderFullPath)Set currentFileSet = currentFolder.FilesFor Each currentFile In currentFileSetIf LCase(GetFileExtensions(currentFile.Name)) = "jar" Thens = s & currentFile.Path & g_delimiterEnd IfNextGetFilenames = sEnd Function'得到脚本文件所在的当前目录Function GetCurrentFolderFullPathDim fsoSet fso = CreateObject("Scripting.FileSystemObject")GetCurrentFolderFullPath = fso.GetParentFolderName(WScript.ScriptFullName)End Function'递归遍历当前目录下的所有文件夹和子文件夹Function GetSubFolders(currentFolderFullPath)Dim fso, currentFolder, subFolderSet, subFolderSet fso = CreateObject("Scripting.FileSystemObject")Set currentFolder = fso.GetFolder(currentFolderFullPath)Set subFolderSet = currentFolder.SubFoldersFor Each subFolder in subFolderSet'MsgBox "subFolder.Path=" & subFolder.PathGetSubFolders = subFolder.Path & g_delimiter & GetSubFolders(subFolder.Path) & GetSubFolders NextEnd FunctionDim arr, s, i, WshShell, cparr = Split(GetSubFolders(GetCurrentFolderFullPath), g_delimiter)'arr最后一个元素为空For i = LBound(arr) To UBound(arr) - 1s = s & GetFilenames(arr(i))Next'将搜索到的jar包添加到CLASSPATHSet WshShell = WScript.CreateObject("WScript.Shell")'s = WshShell.ExpandEnvironmentStrings("%CLASSPATH%") & g_delimiter & scp = WshShell.ExpandEnvironmentStrings(g_classpath)If cp = g_classpath Thencp = "." & g_delimiter & sElsecp = "." & g_delimiter & s & g_delimiter & cpEnd IfWshShell.Environment("User").Item("CLASSPATH") = cp'MsgBox "[" & cp & "] has been added to CLASSPATH!"MsgBox "The environment variable [CLASSPATH] includes:" & vbCrLf & vbCrLf & cp, vbOKOnly, g_program