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 IfIf 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
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
موفق ان شاءالله
[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 IfFor 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
NextDim 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
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 في مسار محدد ,ويمكن تغيير الامتداد الا أي امتداد آخر تريده
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 Subsooriaty03 كتب :السلام عليكم ورحمة الله وبركاته
بحسب ما فهمت من سؤالك أنك تريد فتح مجلد بواسطة برنامجك
وبعد ذلك يقوم برنامجك بتفحص الملفات الموجودة داخل هذا المجلد فإن وجد ملف صورة ذات امتداد 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
بالتوفيق