Membuat Folder dengan VB.NET

Asset : 1 Button

Function FolderAda(ByVal NamaFolder$) As Boolean

        On Error Resume Next

        Dim FSO As Object, myFile

        FSO = CreateObject("Scripting.FileSystemObject")

        If FSO.FolderExists(NamaFolder$) = True Then

            FolderAda = True

        End If

        FSO = Nothing

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If FolderAda("C:\Folder Baru") = False Then

            MkDir("C:\Folder Baru")

        End If

    End Sub