Private Sub CreatFolder(ByVal pathName As String)

        If Not System.IO.Directory.Exists(pathName) Then        ' ถ้าไม่มี Directory name นี้
            My.Computer.FileSystem.CreateDirectory(pathName)  ' ก็จงสร้าง Directory name นี้
        End If

End Sub