디렉터리의 이름이 일부만 존재하는지 확인할 수 있습니까?

Question

JDK가 설치되어 있는지 확인하고 싶습니다.

사용자가 이전 버전을 설치했을 수 있으므로 C:\Program Files\Java\jdk1.8.0_25이 있는지 확인하고 싶지 않습니다. C:\Program Files\Java안에 문자열이 포함되어 있는지 확인하려면 jdk 문자열을 확인하고 싶습니다.

그럴 수 있습니까?

Answer 1

곧장 오는 것은 MSDN입니다.

Try 
    Dim dirPath As String = "your directory where JDK might be present" 
    Dim dirs As List(Of String) = New List(Of String)(Directory.EnumerateDirectories(dirPath)) 
    For Each folder In dirs 
     ' Logic to check existence of word "JDK" from end 
     ' If found break 
    Next 
Catch UAEx As UnauthorizedAccessException 
    ' Error Handling 
Catch PathEx As PathTooLongException 
    ' Error Handling 
End Try 

Answer 2

예.

1 단계 : 모든 디렉토리 이름 목록을 가져옵니다. Link

2 단계 : 검색 문자열이 하나 이상 포함되어 있는지 확인하십시오. Link

Answer 3

Dim Installed = (
    From i In My.Computer.FileSystem.GetDirectories("C:\Program Files\Java") 
    Where i.ToLower Like "*jdk*").Any 

Answer 4

간단한 레지스트리 검사 . 오류 트래핑 등을 추가해야합니다.

Dim rk As RegistryKey 
Dim sk As RegistryKey 
Dim currentVerion As String 


rk = Registry.LocalMachine 

sk = rk.OpenSubKey("SOFTWARE\\JavaSoft\\Java Runtime Environment") 
If sk Is Nothing Then 
    'Does not exist (IE Could not open it). 
Else 
    currentVerion = sk.GetValue("CurrentVersion").ToString() 
End If