자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb6.0/vba

IT HUB를 찾아주셔서 감사합니다.

vb6.0vba [vba] FolderCheck 함수를 이용한 폴더 생성

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 4,725회 작성일 21-08-09 14:06

본문

Public Function FolderCheck(fPath$) As String
    Dim Folders As Variant, Path$, i%
    Folders = Split(fPath, "\")
    Path = Folders(0)
    For i = 1 To UBound(Folders)
        If Len(Folders(i)) Then
            Path = Path + "\"
            Path = Path + Folders(i)
             If Len(Dir(Path + "\", vbDirectory)) = 0 Then MkDir Path
        End If
    Next
    FolderCheck = Path + "\"
End Function
 

댓글목록

등록된 댓글이 없습니다.