'getfolder'에 해당되는 글 1건
- 2008.11.17 vb 서브폴더 구하기
' ---------------------------------------------
' 서브폴더 구하기(재귀호출)
' 함수사용전에 전역변수로 fso, path가 선언되 있어야 한다.
' strFld를 리턴한다.
' vb Script에서는 배열의 크기가 자동으로 증가되지 않기 때문에
' vbCrLf를 구분자로 사용해서 문자열로 리턴함.
' ---------------------------------------------
function getSubFolder(fso, path, strFld, depth)
Dim fld, sfld, f, fld1, sfld1, files
if not isObject(fso) then
getSubFolder = "fso가 선언되지 않았습니다."
Exit function
end if
set fld = fso.getfolder(path)
set sfld = fld.subfolders
for each f in sfld
set fld1 = fso.getfolder(f.path)
set files = fld1.files
set sfld1 = fld1.subfolders
if Len(strFld) > 0 then strFld = strFld & vbCrLf
strFld
= strFld & depth & "|" & f.name & "|" & f.path
& "|" & files.count & "|" & sfld1.count
if sfld1.count > 0 then Call getSubFolder(fso, f.path, strFld, depth+1)
next
getSubFolder = strFld
end function