تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل هذا الكود
#1
كود :
Dim Types As String = ".jpg.png"
If Types.Contains(Path.GetExtension) Then
Dim information = My.Computer.FileSystem.GetFileInfo("C:\MyFile.jpg")
MsgBox("The file's full name is " & information.FullName & ".")
        End If
]
هذا الكود اذا كان صيغة الملف jpg او png يتم تنفيز العملية
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

جرب هذا الكود

PHP كود :
If IO.Path.GetExtension("C:\MyFile.jpg") = ".jpg" Or IO.Path.GetExtension("C:\MyFile.jpg") = ".png" Then
            MessageBox
.Show(IO.Path.GetExtension("C:\MyFile.jpg"))
        
End If 

موفق ان شاءالله
الرد }}}
تم الشكر بواسطة:
#3
sajad كتب :السلام عليكم

جرب هذا الكود

PHP كود :
If IO.Path.GetExtension("C:\MyFile.jpg") = ".jpg" Or IO.Path.GetExtension("C:\MyFile.jpg") = ".png" Then
            MessageBox
.Show(IO.Path.GetExtension("C:\MyFile.jpg"))
        
End If 

موفق ان شاءالله

اخى هل يمكن اذالة مسار الملف ؟

انا وجت هذا الكود لاكن يعمل فى ال DragDrop فهل يمكن تعديلة ؟

كود :
[CODE]        Dim s() As String = e.Data.GetData("FileDrop", False)
        Dim i As Integer
        Dim Types As String = ".jpg .png"
        If Types.Contains(Path.GetExtension(s(i))) Then

        End If
[/CODE]
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

أخي لا يجوز ازالة اسم الملف لان دالة الـExtension تأخذ مدخل واحد وهو مسار الملف ,لذا لايمكن ذلك ,يعني هي في الاساس مبنية على هذا الشكل.

أما بخصوص الDrag&Drop نفس الشيء ,لاحظ كيف مسند مسارات الصور الى الدالة Extension
الرد }}}
تم الشكر بواسطة:
#5
اخى انا اريدة ذى هاذا الكود لاكن لا اعرف كيف اخلى Listbox متابلش غير jpg
كود :
For Each Path As String In My.Application.CommandLineArgs
            Dim file As String() = Directory.GetFiles(Path, "*.jpg")
            Dim i As Integer
            For i = 0 To UBound(file)
                Dim temp As String
                temp = file(i)
                ListBox1.Items.Add(temp)
            Next
        Next
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم

تفضل:

PHP كود :
Dim paths As String() = IO.Directory.GetFiles("C:\\Users\\Public\\Pictures\\Sample Pictures""*.jpg"System.IO.SearchOption.AllDirectories)
        For 
Each path As String In paths
            ListBox1
.Items.Add(IO.Path.GetFileName(path))
        
Next 

الكود أعلاه يقوم بجلب كافة الصور التي بصيغة jpg في مسار محدد ,ويمكن تغيير الامتداد الا أي امتداد آخر تريده
الرد }}}
تم الشكر بواسطة:
#7
sajad كتب :السلام عليكم

تفضل:

PHP كود :
Dim paths As String() = IO.Directory.GetFiles("C:\\Users\\Public\\Pictures\\Sample Pictures""*.jpg"System.IO.SearchOption.AllDirectories)
        For 
Each path As String In paths
            ListBox1
.Items.Add(IO.Path.GetFileName(path))
        
Next 

الكود أعلاه يقوم بجلب كافة الصور التي بصيغة jpg في مسار محدد ,ويمكن تغيير الامتداد الا أي امتداد آخر تريده
جزاك الل خير اخى
الرد }}}
تم الشكر بواسطة:
#8
السلام عليكم ورحمة الله وبركاته

بحسب ما فهمت من سؤالك أنك تريد فتح مجلد بواسطة برنامجك
وبعد ذلك يقوم برنامجك بتفحص الملفات الموجودة داخل هذا المجلد فإن وجد ملف صورة ذات امتداد jpg أو png قام بإضافتها إلى ListBox1

في هذه الحالة يجب أن تتأكد أن المستخدم سيقوم بفتح مجلد وليس ملف وإلا سيظهر خطأ في البرنامج

تابع معي الكود التالي

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Path As String In My.Application.CommandLineArgs
           [color=#008000] 'قمنا بعمل شرط للتحقق من أن المتغير عبارة عن مجلد[/color]
            If IO.Directory.Exists(Path) Then
              [COLOR=#008000]  'المتغير عبارة عن مجلد
                'نقوم باستيراد ملفات الصور ذات الامتداد المطلوب[/COLOR]
                ListBox1.Items.AddRange(Directory.GetFiles(Path, "*.jpg"))
            Else
             [COLOR=#008000]   'المتغير عبارة عن ملف
                'سنقوم بفحصه لنرى هل هو صورة[/COLOR]
                If IO.Path.GetExtension(Path) = ".jpg" Then
                [color=#008000]    'الملف صورة وبالتالي نقوم بإضافته إلى القائمة[/color]
                    ListBox1.Items.Add(Path)
                End If
            End If
        Next
    End Sub

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#9
sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

بحسب ما فهمت من سؤالك أنك تريد فتح مجلد بواسطة برنامجك
وبعد ذلك يقوم برنامجك بتفحص الملفات الموجودة داخل هذا المجلد فإن وجد ملف صورة ذات امتداد jpg أو png قام بإضافتها إلى ListBox1

في هذه الحالة يجب أن تتأكد أن المستخدم سيقوم بفتح مجلد وليس ملف وإلا سيظهر خطأ في البرنامج

تابع معي الكود التالي

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each Path As String In My.Application.CommandLineArgs
           [color=#008000] 'قمنا بعمل شرط للتحقق من أن المتغير عبارة عن مجلد[/color]
            If IO.Directory.Exists(Path) Then
              [COLOR=#008000]  'المتغير عبارة عن مجلد
                'نقوم باستيراد ملفات الصور ذات الامتداد المطلوب[/COLOR]
                ListBox1.Items.AddRange(Directory.GetFiles(Path, "*.jpg"))
            Else
             [COLOR=#008000]   'المتغير عبارة عن ملف
                'سنقوم بفحصه لنرى هل هو صورة[/COLOR]
                If IO.Path.GetExtension(Path) = ".jpg" Then
                [color=#008000]    'الملف صورة وبالتالي نقوم بإضافته إلى القائمة[/color]
                    ListBox1.Items.Add(Path)
                End If
            End If
        Next
    End Sub

بالتوفيق

جزاك الله خير اخى
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 69 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 131 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  ممكن تعديل في كود التفقيط للارقام melad2002 2 334 01-01-24, 08:47 PM
آخر رد: melad2002

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


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