vb6.0vba [vba] FolderCheck 함수를 이용한 폴더 생성
페이지 정보
본문
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
- 이전글[vba] JoinBytesArray 함수를 이용한 Byte 조인하기 21.08.09
- 다음글[vb6.0/vba] Function CheckFolder - 경로에 폴더가 없으면 폴더를 만든다 21.07.10
댓글목록
등록된 댓글이 없습니다.