Ship Storm
جمعه 13 اردیبهشت 1392, 22:45 عصر
سلام
من میخوام یک فولدر رو کپی کنم تو یک مسیری که انتخاب میکنه کاربر ولی نمیدونم چرا فقط فایل های درون اون فولدر رو کپی میکنه و خود فولدر رو کپی نمیکنه
این هم کدی که نوشتم برای دو دکمه " انتخاب مسیر برای کپی شدن " و دکمه " کپی کردن"
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 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
مشکل از کجاست مهندسان ارجمند ؟