تعديل على كود حفظ مكان الصورة
بعد التحية لكم اساتذتي الكرام ..
الكود التالي يعمل 100% ولله الحمد ولكن يحفظ الصورة بعد مسحها (scan) داخل مجلد photo والمطلوب الحفظ في مجلد فرعي داخل مجلد photo
علماً بان المجلد الفرعي مسمى بالرقم الوظيفي للموظف .. حيث لكل موظف مجلد فرعي يحتوي على صور وارشيف الموظف المحدد حسب id
ارجو شاكراً التعديل على الكود ليحفظ الصورة في المجلد الفرعي داخل مجلد صور الموظفين الموجود في مجلد البرنامج الرئيس ..
Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(Application.Cod
تفضل
والكود يعمل المجلدات الغير موجودة تلقائيا
الكود اصبح:
Private Sub cmd_scan_Click()
On Error GoTo err_cmd_scan_Click
Dim Image_Path As String
Set img = CreateObject("wia.commondialog")
'1
Image_Path = Application.CodeProject.Path
'2
Image_Path = Image_Path & "\photo\"
'if the photo Dir dose not exist, creat it
If Dir(Image_Path, vbDirectory) = "" Then
MkDir Image_Path
End If
'3
Image_Path = Image_Path