کد این قسمت رو نداشت اول
AllCopings$ = AllCopings$ & Cur_Drv$ & "\Aks" & vbNewLine
این رو باید اضافه می کردیم