[VBScript] 특정경로의 원본 이름 추출

대소문자가 구별되지 않은 폴더의 전체경로를 가지고 있을때, 폴더가 있을경우 원래의 대소문자가 포함된 이름을 반환하는 VBScript 입니다.

사용법
GetFolderRealName("부모폴더명","찾을 폴더명")

반환값

1. 폴더가 있을 경우 : 대소문자포함된 폴더명
2. 폴더가 없는 경우 : 값없음

Function GetRealName(oPath)
  Dim fso, d, f, sf, s, f1
  Dim ParentsPath, tmpPath, LastRealName
  GetRealName = ""
  tmpPath = Split(oPath,"\")
  LastRealName = tmpPath(Ubound(tmpPath))
  ParentsPath = Replace(oPath,"\"&LastRealName,"")
  If Len(ParentsPath)<3 then ParentsPath = ParentsPath &"\"
 
  Set fso = CreateObject("Scripting.FileSystemObject")
  If fso.FolderExists(oPath) then
    Set f = fso.GetFolder(ParentsPath)
    Set sf = f.SubFolders
    For Each f1 in sf
      If StrComp(Lcase(f1.name),Lcase(LastRealName),1) = 0 then
        s = f1.Path
        Exit For
      End if
    Next
  ElseIf fso.FileExists(oPath) then
    Set f = fso.GetFolder(ParentsPath)
    Set sf = f.files
    For Each f1 in sf
      If StrComp(Lcase(f1.name),Lcase(LastRealName),1) = 0 then
        s = f1.Path
        Exit For
      End if
    Next
  Else
    s = ""
  End if
  GetRealName = s
End Function

수정(090106) - 폴더 와 파일 모두 사용가능하도록 변경