البحث عن ملفات صور داخل مجلد البرنامج

يعنى أسم الصورة لا يكرر ؟

تأكد من عدم وجود مسار الصورة , أسخدم دالة PathFileExists

اخي اهديك الكود التالي و هو من احدى برامجي الخاصة بمستودع قطع سيارات و يمكنك التطوير عليه كيف تشاء

ضع الكود التالي في زر اختيار الصورة

 On Error GoTo 1

	FrmMain.ComDlg.CancelError = True
	FrmMain.ComDlg.Filter = "Pictures (*.JPG)|*.jpg|Pictures (*.Img)|*.Img|Pictures (*.BMP)|*.bmp| All Files ( *.* ) | *.*"
	FrmMain.ComDlg.DialogTitle = "يرجى اختيار الصورة المطلوبة"
	FrmMain.ComDlg.ShowOpen
	Image1.Picture = LoadPicture(FrmMain.ComDlg.FileName)

	FileCopy FrmMain.ComDlg.FileName, App.Path & "\Temp\TempImage.tmp"
1
	If err.Number = 32755 Then Exit Sub

و اضف الدالة التالية اخي لتقوم باستدعائها عند تخزين السجل

Private Function StoreImage() As String


	Dim ReName As Byte
	Dim T As Date: T = Now
	Dim NameImage As String

	' التاكد من وجود الصورة اصلا
	 If Image1.Picture <> 0 Then

		  If TaskForm = TaskAddNew Then
2
		   For i = 1 To Len(Trim(Str(T)))						 ' انشاء اسم جديد مكون من اسم وتاريخ التخزين
			 If (Mid(Trim(T), i, 1) <> ":") And (Mid(T, i, 1) <> "/") And Mid(T, i, 1) <> " " Then
			   NameImage = NameImage & Mid(Trim(Str(T)), i, 1)
			 End If
		   Next
1
		  ' التاكد من عدم استخدام الاسم مسبقا 
		  If Dir(App.Path & "\StoreImage\" & NameImage & ".img") = vbNullString Then
		  FileCopy App.Path & "\Temp\TempImage.tmp", App.Path & "\StoreImage\" & NameImage & ".img"
		  Kill App.Path & "\Temp\TempImage.tmp"
		  Else
		  ' انشاء ملحق للاسم و التخلص من اي ملاحقات سابقة ناتج من استخدام هذا الخطوة مسبقا 
		  ReName = ReName + 1
		  NameImage = Mid(Trim(NameImage), 1, Len(Trim(NameImage)) - 1) & ReName
		  GoTo 1
		  End If

		StoreImage = NameImage
		 ElseIf TaskForm = TaskEdit Then
		 If Dir(App.Path & "\Temp\TempImage.tmp") <> vbNullString Then
		SQL = "Select ImageGoods From [Goods] Where Serial ='" & Goods_cmb(0).Text & "'"
		Call RsOpen(RS, SQL)
		If RS("ImageGoods") <> "" Then
		FileCopy App.Path & "\Temp\TempImage.tmp", App.Path & "\StoreImage\" & RS("ImageGoods") & ".img"
		Kill App.Path & "\Temp\TempImage.tmp"
		 StoreImage = RS("ImageGoods")
	   Else
	   GoTo 2
		 End If
		 End If
		 End If
	  Else
	  StoreImage = ""
	  End If

End Function

شرح الكود السابق

في الجزء الاول عند اختيار الصورة ويتم نسخها الى مجلد خاص ببرنامجنا يسمى temp باسم TempImage.tmp

الجزء الثاني هي دالة نقوم باستدعائها و نحن نخزن السجل

تقوم بالتاكد من وجود صورة اصلا

انشاء اسم جديد مكون من تاريخ ووقت تحزين الصورة

التاكد من عدم وجود الاسم مسبقا

وفي حالة وجودة يقوم بانشاء ملحق للاسم

و الا

نقوم بنسخ الصورة من مجلد التمب (temp) الى مجلد الصور

الف شكر على المساعده ده فعلا اللى انا عاوزه وفكرة جميله انى انا اللى أسمى الصوره قبل نقلها شكرا