[vb6.0/vba] Function CheckFolder - 경로에 폴더가 없으면 폴더를 만든다 > vb6.0/vba

본문 바로가기

vb6.0/vba

[vb6.0vba] [vb6.0/vba] Function CheckFolder - 경로에 폴더가 없으면 폴더를 만든다

회원사진
하나를하더라도최선을
2021-07-10 12:16 2,807 0

본문



Public Function CheckFolder(ByVal f_Spec As String)
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.FolderExists(f_Spec) Then
        Set fs = Nothing
    Else
        fs.CreateFolder f_Spec
        Set fs = Nothing
    End If
End Function

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색