폴더 복사 및 제외 폴더

Question

텍스트 상자를 통해 다른 위치로 폴더를 복사하는 코드가 있습니다. 사용자가 복사 할 폴더를 지정할 수있는 Textbox1과 사용자가 대상 폴더를 찾을 수있는 textbox2. 경로 C:\Users\%USERNAME%\Documents\My Music에

액세스가 거부되었습니다 :

Textbox1 경우 "내 문서"오류가 말을 발생하는 경로입니다.

"내 음악"으로 선택되어 "내 문서"에 숨겨진 폴더는 Windows에서 "보호 된 운영 체제 파일을 숨기"7. 나는 사람이 걸릴 수 VB.net에서 비주얼 스튜디오 2005 새를 사용하고 이 코드를 살펴보고 복사 할 폴더를 제외하는 방법을 알려주십시오.

Answer 1

문제를 4 개의 하위로 나누는 것이 좋습니다. 먼저 사용자가 소스 및 대상에 대해 원하는 폴더를 선택할 수있게 해주는 두 개의 하위 폴더. 복사를 시작하는 버튼 클릭 이벤트와 실제로 복사를 처리하는 서브 이벤트입니다.

크기에이를에보십시오 :

Dim CopyFromPath As String 
Dim CopyToPath As String 

Private Sub TextBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseClick 
    Dim fldbroser1 As New FolderBrowserDialog 
    fldbroser1.RootFolder = Environment.SpecialFolder.MyMusic 
    fldbroser1.ShowDialog() 
    CopyFromPath = fldbroser1.SelectedPath 
End Sub 

Private Sub TextBox2_MouseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.MouseClick 
    Dim fldbroser1 As New FolderBrowserDialog 
    fldbroser1.RootFolder = Environment.SpecialFolder.MyComputer 
    fldbroser1.ShowDialog() 
    CopyToPath = fldbroser1.SelectedPath 
End Sub 

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

Private Sub CopyAllFiles(ByVal CopyFromPath As String, ByVal CopyToPath As String) 
    If Not Directory.Exists(CopyToPath) Then 
     Directory.CreateDirectory(CopyToPath) 
    End If 

    For Each filee As String In Directory.GetFiles(Path.GetDirectoryName(CopyFromPath)) 
     Dim dest As String = Path.Combine(CopyToPath, Path.GetFileName(filee)) 
     File.Copy(filee, dest) 
    Next 

    For Each folder As String In Directory.GetDirectories(Path.GetDirectoryName(CopyFromPath)) 
     Dim dest As String = Path.Combine(CopyToPath, Path.GetFileName(folder)) 
     CopyAllFiles(folder, dest) 
    Next 
End Sub 

당신이 작동하지 System.IO를 가져와야합니다. 코드에 문제가 있으면 언제든지 질문하십시오. 행운을 빕니다 VB에서 배울 수 있습니다. 때때로 성가 시지만 상당히 유용합니다.