Zasfe's memory

'Folder'에 해당되는 글 1건

[VBScript] 특정경로의 원본 이름 추출 (2) | 2009/01/06

[VBScript] 특정경로의 원본 이름 추출 - 2009/01/06 14:02

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

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

반환값

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

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) - 폴더 와 파일 모두 사용가능하도록 변경

'윈도우' 카테고리의 다른 글

IE8 출시에 따른 강제 호환성보기 소스설정 (0)	2009/04/03
IIS 6 에서 mdb 를 다운받는 방법 (3)	2009/03/27
[VBScript] 특정경로의 원본 이름 추출 (2)	2009/01/06
배치파일활용01 - 날짜단위 폴더,파일 만들기 (0)	2009/01/05
일반적인 웹해킹을 막으려면 (4)	2008/12/03
네임서버 갱신 확인하는 배치파일 (0)	2008/11/11