[vb6.0/vba] Function CheckFolder - 경로에 폴더가 없으면 폴더를 만든다
하나를하더라도최선을
2021-07-10 12:16:50
32,301
0
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