About Script

Public Declare Function CreateDirectory Lib "kernel32" Alias _ "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes _
As SECURITY_ATTRIBUTES) As Long

Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Public Function buatfolder()
Dim namadir As String
Dim file As SECURITY_ATTRIBUTES
namadir = "Picture"
With file
.bInheritHandle = 1
.lpSecurityDescriptor = 0
.nLength = Len(namadir)
End With
CreateDirectory App.Path & "\" & "folderna", file
End Function