ElseIf varmi <> "" And Dir(yol & "\" & varmi & ".jpg") = "" Then
kısmını aşağıdaki kodla değiştirip dener misinizElseIf varmi <> "" And Dir(yol & varmi & ".jpg") = "" Then
yada aşağıdaki kodlaElseIf varmi <> "" And Len(Dir(yol & varmi & ".jpg")) = 0 Then