批量查找像片 ，代码有错，请高手给改一下

清浪纯水

Private Sub CommandButton1_Click()
Dim i, k, iRows As Integer
Dim s1, mypcname, srcpath, destpath As String
iRows = Sheet1.[A1].CurrentRegion.Rows.Count
'获取数据表sheet1的最大行数
srcpath = "D:\历年照片\" '存放照片的源路径
destpath = "E:\photo1\" '存放照片的目标路径
iRows = iRows - 1
k = 0
For i = 2 To iRows
mypcname = srcpath & Trim(Cells(i, 1).Value) & ".jpg"
'获取照片文件名
s1 = Dir(mypcname, vbNormal)  '查找照片文件是否存在
If s1 <> "" Then
FileCopy mypcname, destpath & s1
Cells(i, 2).Value = l
'若存在，将照片文件拷贝到目标路径,将对应单元格值置为1。

Elsek = k + 1
Cells(i, 2).Value = 0 '若没找到，将对应单元格值置为0
End If
Next i
MsgBox "查找结束！有“& k &”人无照片。”"
Unload Me
End Sub

清浪纯水

第一列   身份证    第二列相片

好像是   K＝K+１　　出问题了