Private Sub CreateFolder(ByVal Folder As String, ByVal Attr As FileAttribute)
        Try
            Dim DirInfo As New System.IO.DirectoryInfo(Folder)
            If Not DirInfo.Exists Then DirInfo.Create()
            DirInfo.Attributes = Attr
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub