폴더 속성 변경 로직

 Private Function IsFolderReadOnly(ByVal Folder As String) As Boolean

        Dim oDir As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(Folder)

        Return ((oDir.Attributes And System.IO.FileAttributes.ReadOnly) > 0)

    End Function

================================================================

    Private Sub ClearReadOnly(ByVal parentDirectory As DirectoryInfo)

        If (Not (parentDirectory) Is Nothing) Then

            parentDirectory.Attributes = FileAttributes.Normal

            For Each fi As FileInfo In parentDirectory.GetFiles

                fi.Attributes = FileAttributes.Normal

            Next

            For Each di As DirectoryInfo In parentDirectory.GetDirectories

                ClearReadOnly(di)

            Next

        End If

    End Sub