کپی کردن یک فولدر

[Ship Storm]

سلام
من میخوام یک فولدر رو کپی کنم تو یک مسیری که انتخاب میکنه کاربر ولی نمیدونم چرا فقط فایل های درون اون فولدر رو کپی میکنه و خود فولدر رو کپی نمیکنه

این هم کدی که نوشتم برای دو دکمه " انتخاب مسیر برای کپی شدن " و دکمه " کپی کردن"




Private Sub btnWhereToSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWhereToSave.Click
Dim folderDlg As New FolderBrowserDialog
folderDlg.ShowNewFolderButton = True
If (folderDlg.ShowDialog() = DialogResult.OK) Then
TextBox2.Text = folderDlg.SelectedPath
Dim root As Environment.SpecialFolder = folderDlg.RootFolder
End If
End Sub

Private Sub btnCopyFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopyFile.Click
Timer2.Enabled = True
Dim text1 As String = TextBox1.Text
Dim text2 As String = TextBox2.Text
My.Computer.FileSystem.CopyDirectory(text1, text2, True)

End Sub



مشکل از کجاست مهندسان ارجمند ؟

[فرید نجفلو]

سلام

می تونید به این شکل اصلاح کنید:


Private Sub btnWhatToCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWhatToCopy.Click
Dim folderDlg As New FolderBrowserDialog
folderDlg.ShowNewFolderButton = True
If (folderDlg.ShowDialog() = DialogResult.OK) Then
TextBox1.Text = folderDlg.SelectedPath
Dim root As Environment.SpecialFolder = folderDlg.RootFolder
End If
End Sub


Private Sub btnWhereToSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWhereToSave.Click
Dim folderDlg As New FolderBrowserDialog
folderDlg.ShowNewFolderButton = True
If (folderDlg.ShowDialog() = DialogResult.OK) Then
TextBox2.Text = folderDlg.SelectedPath
Dim root As Environment.SpecialFolder = folderDlg.RootFolder
End If
End Sub

Private Sub btnCopyFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopyFile.Click
Timer2.Enabled = True
Dim src As String = TextBox1.Text
Dim dest As String = IO.Path.Combine(TextBox2.Text, IO.Path.GetFileName(src))
If Not IO.Directory.Exists(dest) Then IO.Directory.CreateDirectory(dest)
My.Computer.FileSystem.CopyDirectory(src, dest, True)

End Sub

[Ship Storm]

با تشکر فراوان از راهنمایی خوب و ارزنده شما
مشکل به خوبی برطرف شد با راهنمایی عالی حضرتعالی
با تشکر