تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود نسخ ملف تم اختياره في الكومبوبكس
#1
هناك ملفات في فولدر تعبا في الكمبوبكس
اريد كود يقوم بنسخ ملف تم اختياره من الكمبوبكس
اي لما اختار ملف من الكمبوبكس واظغط زر يقوم بنسخ الملف الى المسار المحدد
وشكرا
[صورة مرفقة: 000.gif]
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

تفضل الكود
كود :
Dim sourceFileName As String = ComboBox1.Text
Dim distFileName As String = "E:\folder\" & IO.Path.GetFileName(ComboBox1.Text)

IO.File.Copy(sourceFileName, distFileName, True)
الرد }}}}
تم الشكر بواسطة:
#3
(13-02-17, 07:51 PM)مساعدة كتب : السلام عليكم

تفضل الكود
كود :
Dim sourceFileName As String = ComboBox1.Text
Dim distFileName As String = "E:\folder\" & IO.Path.GetFileName(ComboBox1.Text)

IO.File.Copy(sourceFileName, distFileName, True)

لم ينفع طلع ارور
[صورة مرفقة: 000.gif]
الرد }}}}
تم الشكر بواسطة:
#4
جرب الكود التالي

اولاً تحميل الملفات من مجلد معين الى الكمبوبوكس ويوضع في الحدث  Form1_Load او بداخل زر معين
PHP كود :
Try
 
           'تحميل الملفات
            Dim dir = Application.StartupPath & "\New folder"
            For Each file As String In System.IO.Directory.GetFiles(dir)
                ComboBox1.Items.Add(System.IO.Path.GetFileNameWithoutExtension(file))
            Next
            '
تحديد اخر قيمة تم اختيارها قبل اغلاق الفورم
            ComboBox1
.SelectedIndex My.Settings.file_name

        Catch ex 
As Exception
        End 
Try 
ثانياً حفظ قيمة الملف الذي تم اختياره
PHP كود :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedIndexChanged
        
        If ComboBox1
.SelectedIndex <> -1 Then
            
'حفظ قيمة الملف الذي تم اختياره من الكمبوبوكس
            My.Settings.file_name = ComboBox1.SelectedIndex
            My.Settings.Save()
        End If
    End Sub 
ثالثاً تحديد مكان حفظ الملف
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Dim fd 
As New FolderBrowserDialog
        If fd
.ShowDialog Windows.Forms.DialogResult.OK Then
            TextBox1
.Text fd.SelectedPath
        End 
If
 
   End Sub 

رابعاً نسخ الملف 
PHP كود :
Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        If TextBox1
.Text Nothing Then
            MsgBox
("حدد مسار حفظ الملف")
 
           Button1.Focus()
 
           Exit Sub
        End 
If

 
       Dim path_ As String Application.StartupPath "\New folder\" & ComboBox1.Text & ".txt"
        IO.File.Copy(path_, TextBox1.Text & "
\" & ComboBox1.Text & ".txt", True)
    End Sub 


الملفات المرفقة
.rar   SaveSettings.rar (الحجم : 81.28 ك ب / التحميلات : 20)
الرد }}}}
تم الشكر بواسطة: sendbad100 , bidaya
#5
(14-02-17, 02:45 PM)Adrees كتب : جرب الكود التالي

اولاً تحميل الملفات من مجلد معين الى الكمبوبوكس ويوضع في الحدث  Form1_Load او بداخل زر معين
PHP كود :
Try
 
           'تحميل الملفات
            Dim dir = Application.StartupPath & "\New folder"
            For Each file As String In System.IO.Directory.GetFiles(dir)
                ComboBox1.Items.Add(System.IO.Path.GetFileNameWithoutExtension(file))
            Next
            '
تحديد اخر قيمة تم اختيارها قبل اغلاق الفورم
            ComboBox1
.SelectedIndex My.Settings.file_name

        Catch ex 
As Exception
        End 
Try 
ثانياً حفظ قيمة الملف الذي تم اختياره
PHP كود :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.SelectedIndexChanged
        
        If ComboBox1
.SelectedIndex <> -1 Then
            
'حفظ قيمة الملف الذي تم اختياره من الكمبوبوكس
            My.Settings.file_name = ComboBox1.SelectedIndex
            My.Settings.Save()
        End If
    End Sub 
ثالثاً تحديد مكان حفظ الملف
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        Dim fd 
As New FolderBrowserDialog
        If fd
.ShowDialog Windows.Forms.DialogResult.OK Then
            TextBox1
.Text fd.SelectedPath
        End 
If
 
   End Sub 

رابعاً نسخ الملف 
PHP كود :
Private Sub Button2_Click(sender As ObjectAs EventArgsHandles Button2.Click
        If TextBox1
.Text Nothing Then
            MsgBox
("حدد مسار حفظ الملف")
 
           Button1.Focus()
 
           Exit Sub
        End 
If

 
       Dim path_ As String Application.StartupPath "\New folder\" & ComboBox1.Text & ".txt"
        IO.File.Copy(path_, TextBox1.Text & "
\" & ComboBox1.Text & ".txt", True)
    End Sub 
شكرا لك اخي الله يحفظك
لقد استفدة الكثير الكثير من هذا الكود الله يجازيك الف خير
[صورة مرفقة: 000.gif]
الرد }}}}
تم الشكر بواسطة: Adrees


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] استقسار عن الكومبوبكس والتيكست بوكس عبدالرحمن المكاوي 6 370 31-12-16, 07:35 PM
آخر رد: مساعدة
  طريقة تعبئة الكومبوبكس هاوي1995 24 1,788 26-09-16, 07:54 AM
آخر رد: سعود
  [كود] استفسار في الكومبوبكس عبدالرحمن المكاوي 17 1,322 27-05-16, 01:10 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] كود اظهار البيانات عندما اختار اسم من الكومبوبكس 0theghost0 9 3,275 22-11-14, 07:28 PM
آخر رد: 0theghost0
  عند اختيار الدولة من الكومبوبكس الاول يتم عرض اسماء مدن هذه الدولة في الكومبوبكي التاني كمال النحال 8 1,365 27-08-13, 10:27 AM
آخر رد: كمال النحال

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم