'folder'에 해당되는 글 1건

  1. 2009.01.06 [VBScript] 특정경로의 원본 이름 추출 (2)
컴퓨터2009.01.06 14:02
대소문자가 구별되지 않은 폴더의 전체경로를 가지고 있을때, 폴더가 있을경우 원래의 대소문자가 포함된 이름을 반환하는 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) - 폴더 와 파일 모두 사용가능하도록 변경
Posted by Zasfe

댓글을 달아 주세요

  1. 이제는 스크립트까지 올리시는군요.

    설 연휴 잘 지내시고 항상 행복하세요.

    2009.01.23 19:11 [ ADDR : EDIT/ DEL : REPLY ]
    • zasfe

      매일 사용하면서도 까먹고 잊어버리는 것들이라 올리게 되었습니다.

      티나나요..? ㅎ

      도아님도 행복한 새해 되세요.. ^^

      2009.01.28 14:52 [ ADDR : EDIT/ DEL ]