Membuat Folder

Dim fso As New FileSystemObject
Private Sub Command1_Click()

Dim Pathnya As String
Pathnya = App.Path

fso.CreateFolder Pathnya & "Kau_selalu_ygterbaik_"

End Sub