[alsalamoni]

(30-01-20, 11:50 PM)Al Wilaya كتب : شكرا لك أخي العزيز والكريم
أنا لا أريد عمل سيت أب , أريد إستخدام ملف .EXE وحفظه في ملف وحفظ ملفات البيك أب والسكانر , وكان الله يحب المسحنين هههه
أنا لا أحب الأمور المعقدة 
بل أتعب بشكل إضافي لكي أريح المستخدم ويعمل بشكل سريع

وشكرا لرحابة صدرك

غير نوع العمود بدل ارتباط تشعبي اجعله نصي
هذا كود (إستدعاء إرتباط تشعبي) اختيار الصوره ونسخها في المجلد scan

كود :

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Using OpenFileDialog1 As New OpenFileDialog
           OpenFileDialog1.Filter = "Images|*.jpg;*.png"
           If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
               Dim filename = IO.Path.GetFileName(OpenFileDialog1.FileName)
               RichTextBox2.Text = filename
               My.Computer.FileSystem.CopyFile(OpenFileDialog1.FileName, Application.StartupPath & "\SCAN\" & filename)
           End If
       End Using
   End Sub