استخدم الكود كالاتى
If Dir(CurrentProject.Path & "\download\" & [id] & ".*", vbDirectory) <> "" Then
If Dir(CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\", vbDirectory) <> "" Then
Else
MkDir CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\"
End If
Dim oldpathANDname As String, newpathANDname As String
'oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg"
'newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & ".jpg"
oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg"
newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & GetFileExt(oldpathANDname)
Name oldpathANDname As newpathANDname
Me!imgPicture.Requery
End If