پرسش اجرای فایل از طریق دکمه

[gha3emi]

با سلام
من با استفاده از شرط زیر می خوام بچ فایل b.bat رو از مسیر مربوطه رو اجرا کنم ولی مشکلی که وجود داره اینه که به جای اینکه بعد از اجرا از مسیر d:\receive_b\14000717 فایل b.bat محتویات همین پوشه رو بخونه از پوشه c:\admin\document می خونه چون تو فایل bat باید ftp کنم و فایلهای موجود در همین پوشه رو ارسال کنم لازمه که حتما از همین پوشه اجرا بشه
2- می خوام تو شرط if یک دکمه هم بزارم که در صورت برقراری شرط and یا فشرده شدن اون دکمه فایل اجرایی فراخوانی بشه و عمل ftp انجام بشه (مشکل فقط فراخوانی از همون پوشه مربوطه است فقط شرط or رو چطور اضافه کنم)
xx پوشه ای هست که به صورت روزانه ساخته میشه و یکسری فایل داخل اون ریخته می شه و b.bat اونا رو ftp می کنه به سرور مربوطه

If Range("b22").Value = 21 And Range("b23").Value = 0 Then
Dim RetVal
xx=jtoday
RetVal = Shell("D:\receive_B" & xx & "\ b.bat", 1)
Range("b23").Value = 1
End If



بعد از فراخوانی به مسیر فوق می رود
ببخشید کمی طولانی شد